home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-10-28 | 33.6 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 65 72 69 6b 40 6e 61 |piled by| erik@na|
|00000020| 67 67 75 6d 2e 6e 6f 20 | 6f 6e 20 53 75 6e 20 4a |ggum.no |on Sun J|
|00000030| 61 6e 20 31 34 20 30 33 | 3a 33 39 3a 34 30 20 31 |an 14 03|:39:40 1|
|00000040| 39 39 36 0a 3b 3b 3b 20 | 66 72 6f 6d 20 66 69 6c |996.;;; |from fil|
|00000050| 65 20 2f 67 64 2f 67 6e | 75 2f 65 6d 61 63 73 2f |e /gd/gn|u/emacs/|
|00000060| 31 39 2e 30 2f 6c 69 73 | 70 2f 61 72 63 2d 6d 6f |19.0/lis|p/arc-mo|
|00000070| 64 65 2e 65 6c 0a 3b 3b | 3b 20 65 6d 61 63 73 20 |de.el.;;|; emacs |
|00000080| 76 65 72 73 69 6f 6e 20 | 31 39 2e 33 30 2e 37 30 |version |19.30.70|
|00000090| 2e 36 2e 0a 3b 3b 3b 20 | 62 79 74 65 63 6f 6d 70 |.6..;;; |bytecomp|
|000000a0| 20 76 65 72 73 69 6f 6e | 20 46 53 46 20 32 2e 31 | version| FSF 2.1|
|000000b0| 30 0a 3b 3b 3b 20 6f 70 | 74 69 6d 69 7a 61 74 69 |0.;;; op|timizati|
|000000c0| 6f 6e 20 69 73 20 6f 6e | 2e 0a 3b 3b 3b 20 74 68 |on is on|..;;; th|
|000000d0| 69 73 20 66 69 6c 65 20 | 75 73 65 73 20 6f 70 63 |is file |uses opc|
|000000e0| 6f 64 65 73 20 77 68 69 | 63 68 20 64 6f 20 6e 6f |odes whi|ch do no|
|000000f0| 74 20 65 78 69 73 74 20 | 69 6e 20 45 6d 61 63 73 |t exist |in Emacs|
|00000100| 20 31 38 2e 0a 0a 28 69 | 66 20 28 61 6e 64 20 28 | 18...(i|f (and (|
|00000110| 62 6f 75 6e 64 70 20 27 | 65 6d 61 63 73 2d 76 65 |boundp '|emacs-ve|
|00000120| 72 73 69 6f 6e 29 0a 09 | 20 28 6f 72 20 28 61 6e |rsion)..| (or (an|
|00000130| 64 20 28 62 6f 75 6e 64 | 70 20 27 65 70 6f 63 68 |d (bound|p 'epoch|
|00000140| 3a 3a 76 65 72 73 69 6f | 6e 29 20 65 70 6f 63 68 |::versio|n) epoch|
|00000150| 3a 3a 76 65 72 73 69 6f | 6e 29 0a 09 20 20 20 20 |::versio|n).. |
|00000160| 20 28 73 74 72 69 6e 67 | 2d 6c 65 73 73 70 20 65 | (string|-lessp e|
|00000170| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 20 22 31 39 |macs-ver|sion "19|
|00000180| 2e 32 39 22 29 29 29 0a | 20 20 20 20 28 65 72 72 |.29"))).| (err|
|00000190| 6f 72 20 22 60 61 72 63 | 2d 6d 6f 64 65 2e 65 6c |or "`arc|-mode.el|
|000001a0| 27 20 77 61 73 20 63 6f | 6d 70 69 6c 65 64 20 66 |' was co|mpiled f|
|000001b0| 6f 72 20 45 6d 61 63 73 | 20 31 39 2e 32 39 20 6f |or Emacs| 19.29 o|
|000001c0| 72 20 6c 61 74 65 72 22 | 29 29 0a 0a 0a 23 40 37 |r later"|))...#@7|
|000001d0| 32 20 2a 49 66 20 6e 6f | 6e 2d 6e 69 6c 20 74 68 |2 *If no|n-nil th|
|000001e0| 65 6e 20 72 65 63 6f 67 | 6e 69 7a 65 20 6d 65 6d |en recog|nize mem|
|000001f0| 62 65 72 20 66 69 6c 65 | 73 20 75 73 69 6e 67 20 |ber file|s using |
|00000200| 5e 4d 5e 4a 20 61 73 20 | 6c 69 6e 65 20 74 65 72 |^M^J as |line ter|
|00000210| 6d 69 6e 61 74 6f 72 2e | 1f 0a 28 64 65 66 76 61 |minator.|..(defva|
|00000220| 72 20 61 72 63 68 69 76 | 65 2d 64 6f 73 2d 6d 65 |r archiv|e-dos-me|
|00000230| 6d 62 65 72 73 20 74 20 | 28 23 24 20 2e 20 2d 34 |mbers t |(#$ . -4|
|00000240| 36 36 29 29 0a 23 40 35 | 32 20 2a 44 69 72 65 63 |66)).#@5|2 *Direc|
|00000250| 74 6f 72 79 20 66 6f 72 | 20 74 65 6d 70 6f 72 61 |tory for| tempora|
|00000260| 72 79 20 66 69 6c 65 73 | 20 6d 61 64 65 20 62 79 |ry files| made by|
|00000270| 20 61 72 63 2d 6d 6f 64 | 65 2e 65 6c 1f 0a 28 64 | arc-mod|e.el..(d|
|00000280| 65 66 76 61 72 20 61 72 | 63 68 69 76 65 2d 74 6d |efvar ar|chive-tm|
|00000290| 70 64 69 72 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |pdir (by|te-code |
|000002a0| 22 c0 c1 5c 6e c3 3d 83 | 5c 66 00 c4 82 0d 00 c5 |"..\n.=.|\f......|
|000002b0| 21 c6 c7 21 86 1b 00 c6 | c8 21 86 1b 00 c9 5c 22 |!..!....|.!....\"|
|000002c0| 87 22 20 5b 65 78 70 61 | 6e 64 2d 66 69 6c 65 2d |." [expa|nd-file-|
|000002d0| 6e 61 6d 65 20 6d 61 6b | 65 2d 74 65 6d 70 2d 6e |name mak|e-temp-n|
|000002e0| 61 6d 65 20 73 79 73 74 | 65 6d 2d 74 79 70 65 20 |ame syst|em-type |
|000002f0| 6d 73 2d 64 6f 73 20 22 | 61 72 22 20 22 61 72 63 |ms-dos "|ar" "arc|
|00000300| 68 69 76 65 2e 74 6d 70 | 22 20 67 65 74 65 6e 76 |hive.tmp|" getenv|
|00000310| 20 22 54 4d 50 44 49 52 | 22 20 22 54 4d 50 22 20 | "TMPDIR|" "TMP" |
|00000320| 22 2f 74 6d 70 22 5d 20 | 34 29 20 28 23 24 20 2e |"/tmp"] |4) (#$ .|
|00000330| 20 2d 35 38 36 29 29 0a | 23 40 31 38 36 20 2a 52 | -586)).|#@186 *R|
|00000340| 65 67 65 78 70 20 72 65 | 63 6f 67 6e 69 7a 69 6e |egexp re|cognizin|
|00000350| 67 20 61 72 63 68 69 76 | 65 20 66 69 6c 65 73 20 |g archiv|e files |
|00000360| 6e 61 6d 65 73 20 74 68 | 61 74 20 61 72 65 20 6e |names th|at are n|
|00000370| 6f 74 20 6c 6f 63 61 6c | 2e 0a 41 20 6e 6f 6e 2d |ot local|..A non-|
|00000380| 6c 6f 63 61 6c 20 66 69 | 6c 65 20 69 73 20 6f 6e |local fi|le is on|
|00000390| 65 20 77 68 6f 73 65 20 | 66 69 6c 65 20 6e 61 6d |e whose |file nam|
|000003a0| 65 20 69 73 20 6e 6f 74 | 20 70 72 6f 70 65 72 20 |e is not| proper |
|000003b0| 6f 75 74 73 69 64 65 20 | 45 6d 61 63 73 2e 0a 41 |outside |Emacs..A|
|000003c0| 20 6c 6f 63 61 6c 20 63 | 6f 70 79 20 6f 66 20 74 | local c|opy of t|
|000003d0| 68 65 20 61 72 63 68 69 | 76 65 20 77 69 6c 6c 20 |he archi|ve will |
|000003e0| 62 65 20 75 73 65 64 20 | 77 68 65 6e 20 75 70 64 |be used |when upd|
|000003f0| 61 74 69 6e 67 2e 1f 0a | 28 64 65 66 76 61 72 20 |ating...|(defvar |
|00000400| 61 72 63 68 69 76 65 2d | 72 65 6d 6f 74 65 2d 72 |archive-|remote-r|
|00000410| 65 67 65 78 70 20 22 5e | 2f 5b 5e 2f 3a 5d 2a 5b |egexp "^|/[^/:]*[|
|00000420| 5e 2f 3a 2e 5d 3a 22 20 | 28 23 24 20 2e 20 2d 38 |^/:.]:" |(#$ . -8|
|00000430| 33 30 29 29 0a 23 40 35 | 38 20 2a 48 6f 6f 6b 73 |30)).#@5|8 *Hooks|
|00000440| 20 74 6f 20 72 75 6e 20 | 77 68 65 6e 20 61 6e 20 | to run |when an |
|00000450| 61 72 63 68 69 76 65 20 | 6d 65 6d 62 65 72 20 68 |archive |member h|
|00000460| 61 73 20 62 65 65 6e 20 | 65 78 74 72 61 63 74 65 |as been |extracte|
|00000470| 64 2e 1f 0a 28 64 65 66 | 76 61 72 20 61 72 63 68 |d...(def|var arch|
|00000480| 69 76 65 2d 65 78 74 72 | 61 63 74 2d 68 6f 6f 6b |ive-extr|act-hook|
|00000490| 73 20 6e 69 6c 20 28 23 | 24 20 2e 20 2d 31 30 38 |s nil (#|$ . -108|
|000004a0| 32 29 29 0a 23 40 31 36 | 34 20 2a 50 72 6f 67 72 |2)).#@16|4 *Progr|
|000004b0| 61 6d 20 61 6e 64 20 69 | 74 73 20 6f 70 74 69 6f |am and i|ts optio|
|000004c0| 6e 73 20 74 6f 20 72 75 | 6e 20 69 6e 20 6f 72 64 |ns to ru|n in ord|
|000004d0| 65 72 20 74 6f 20 65 78 | 74 72 61 63 74 20 61 6e |er to ex|tract an|
|000004e0| 20 61 72 63 20 66 69 6c | 65 20 6d 65 6d 62 65 72 | arc fil|e member|
|000004f0| 2e 0a 45 78 74 72 61 63 | 74 69 6f 6e 20 73 68 6f |..Extrac|tion sho|
|00000500| 75 6c 64 20 68 61 70 70 | 65 6e 20 74 6f 20 74 68 |uld happ|en to th|
|00000510| 65 20 63 75 72 72 65 6e | 74 20 64 69 72 65 63 74 |e curren|t direct|
|00000520| 6f 72 79 2e 20 20 41 72 | 63 68 69 76 65 20 61 6e |ory. Ar|chive an|
|00000530| 64 20 6d 65 6d 62 65 72 | 0a 6e 61 6d 65 20 77 69 |d member|.name wi|
|00000540| 6c 6c 20 62 65 20 61 64 | 64 65 64 2e 1f 0a 28 64 |ll be ad|ded...(d|
|00000550| 65 66 76 61 72 20 61 72 | 63 68 69 76 65 2d 61 72 |efvar ar|chive-ar|
|00000560| 63 2d 65 78 74 72 61 63 | 74 20 28 71 75 6f 74 65 |c-extrac|t (quote|
|00000570| 20 28 22 61 72 63 22 20 | 22 78 22 29 29 20 28 23 | ("arc" |"x")) (#|
|00000580| 24 20 2e 20 2d 31 31 39 | 34 29 29 0a 23 40 31 31 |$ . -119|4)).#@11|
|00000590| 30 20 2a 50 72 6f 67 72 | 61 6d 20 61 6e 64 20 69 |0 *Progr|am and i|
|000005a0| 74 73 20 6f 70 74 69 6f | 6e 73 20 74 6f 20 72 75 |ts optio|ns to ru|
|000005b0| 6e 20 69 6e 20 6f 72 64 | 65 72 20 74 6f 20 64 65 |n in ord|er to de|
|000005c0| 6c 65 74 65 20 61 72 63 | 20 66 69 6c 65 20 6d 65 |lete arc| file me|
|000005d0| 6d 62 65 72 73 2e 0a 41 | 72 63 68 69 76 65 20 61 |mbers..A|rchive a|
|000005e0| 6e 64 20 6d 65 6d 62 65 | 72 20 6e 61 6d 65 73 20 |nd membe|r names |
|000005f0| 77 69 6c 6c 20 62 65 20 | 61 64 64 65 64 2e 1f 0a |will be |added...|
|00000600| 28 64 65 66 76 61 72 20 | 61 72 63 68 69 76 65 2d |(defvar |archive-|
|00000610| 61 72 63 2d 65 78 70 75 | 6e 67 65 20 28 71 75 6f |arc-expu|nge (quo|
|00000620| 74 65 20 28 22 61 72 63 | 22 20 22 64 22 29 29 20 |te ("arc|" "d")) |
|00000630| 28 23 24 20 2e 20 2d 31 | 34 32 36 29 29 0a 23 40 |(#$ . -1|426)).#@|
|00000640| 31 31 31 20 2a 50 72 6f | 67 72 61 6d 20 61 6e 64 |111 *Pro|gram and|
|00000650| 20 69 74 73 20 6f 70 74 | 69 6f 6e 73 20 74 6f 20 | its opt|ions to |
|00000660| 72 75 6e 20 69 6e 20 6f | 72 64 65 72 20 74 6f 20 |run in o|rder to |
|00000670| 75 70 64 61 74 65 20 61 | 6e 20 61 72 63 20 66 69 |update a|n arc fi|
|00000680| 6c 65 20 6d 65 6d 62 65 | 72 2e 0a 41 72 63 68 69 |le membe|r..Archi|
|00000690| 76 65 20 61 6e 64 20 6d | 65 6d 62 65 72 20 6e 61 |ve and m|ember na|
|000006a0| 6d 65 20 77 69 6c 6c 20 | 62 65 20 61 64 64 65 64 |me will |be added|
|000006b0| 2e 1f 0a 28 64 65 66 76 | 61 72 20 61 72 63 68 69 |...(defv|ar archi|
|000006c0| 76 65 2d 61 72 63 2d 77 | 72 69 74 65 2d 66 69 6c |ve-arc-w|rite-fil|
|000006d0| 65 2d 6d 65 6d 62 65 72 | 20 28 71 75 6f 74 65 20 |e-member| (quote |
|000006e0| 28 22 61 72 63 22 20 22 | 75 22 29 29 20 28 23 24 |("arc" "|u")) (#$|
|000006f0| 20 2e 20 2d 31 36 30 34 | 29 29 0a 23 40 31 35 38 | . -1604|)).#@158|
|00000700| 20 2a 50 72 6f 67 72 61 | 6d 20 61 6e 64 20 69 74 | *Progra|m and it|
|00000710| 73 20 6f 70 74 69 6f 6e | 73 20 74 6f 20 72 75 6e |s option|s to run|
|00000720| 20 69 6e 20 6f 72 64 65 | 72 20 74 6f 20 65 78 74 | in orde|r to ext|
|00000730| 72 61 63 74 20 61 6e 20 | 6c 7a 68 20 66 69 6c 65 |ract an |lzh file|
|00000740| 20 6d 65 6d 62 65 72 2e | 0a 45 78 74 72 61 63 74 | member.|.Extract|
|00000750| 69 6f 6e 20 73 68 6f 75 | 6c 64 20 68 61 70 70 65 |ion shou|ld happe|
|00000760| 6e 20 74 6f 20 73 74 61 | 6e 64 61 72 64 20 6f 75 |n to sta|ndard ou|
|00000770| 74 70 75 74 2e 20 20 41 | 72 63 68 69 76 65 20 61 |tput. A|rchive a|
|00000780| 6e 64 20 6d 65 6d 62 65 | 72 20 6e 61 6d 65 20 77 |nd membe|r name w|
|00000790| 69 6c 6c 0a 62 65 20 61 | 64 64 65 64 2e 1f 0a 28 |ill.be a|dded...(|
|000007a0| 64 65 66 76 61 72 20 61 | 72 63 68 69 76 65 2d 6c |defvar a|rchive-l|
|000007b0| 7a 68 2d 65 78 74 72 61 | 63 74 20 28 71 75 6f 74 |zh-extra|ct (quot|
|000007c0| 65 20 28 22 6c 68 61 22 | 20 22 70 71 22 29 29 20 |e ("lha"| "pq")) |
|000007d0| 28 23 24 20 2e 20 2d 31 | 37 39 33 29 29 0a 23 40 |(#$ . -1|793)).#@|
|000007e0| 31 31 30 20 2a 50 72 6f | 67 72 61 6d 20 61 6e 64 |110 *Pro|gram and|
|000007f0| 20 69 74 73 20 6f 70 74 | 69 6f 6e 73 20 74 6f 20 | its opt|ions to |
|00000800| 72 75 6e 20 69 6e 20 6f | 72 64 65 72 20 74 6f 20 |run in o|rder to |
|00000810| 64 65 6c 65 74 65 20 6c | 7a 68 20 66 69 6c 65 20 |delete l|zh file |
|00000820| 6d 65 6d 62 65 72 73 2e | 0a 41 72 63 68 69 76 65 |members.|.Archive|
|00000830| 20 61 6e 64 20 6d 65 6d | 62 65 72 20 6e 61 6d 65 | and mem|ber name|
|00000840| 73 20 77 69 6c 6c 20 62 | 65 20 61 64 64 65 64 2e |s will b|e added.|
|00000850| 1f 0a 28 64 65 66 76 61 | 72 20 61 72 63 68 69 76 |..(defva|r archiv|
|00000860| 65 2d 6c 7a 68 2d 65 78 | 70 75 6e 67 65 20 28 71 |e-lzh-ex|punge (q|
|00000870| 75 6f 74 65 20 28 22 6c | 68 61 22 20 22 64 22 29 |uote ("l|ha" "d")|
|00000880| 29 20 28 23 24 20 2e 20 | 2d 32 30 32 30 29 29 0a |) (#$ . |-2020)).|
|00000890| 23 40 31 31 31 20 2a 50 | 72 6f 67 72 61 6d 20 61 |#@111 *P|rogram a|
|000008a0| 6e 64 20 69 74 73 20 6f | 70 74 69 6f 6e 73 20 74 |nd its o|ptions t|
|000008b0| 6f 20 72 75 6e 20 69 6e | 20 6f 72 64 65 72 20 74 |o run in| order t|
|000008c0| 6f 20 75 70 64 61 74 65 | 20 61 6e 20 6c 7a 68 20 |o update| an lzh |
|000008d0| 66 69 6c 65 20 6d 65 6d | 62 65 72 2e 0a 41 72 63 |file mem|ber..Arc|
|000008e0| 68 69 76 65 20 61 6e 64 | 20 6d 65 6d 62 65 72 20 |hive and| member |
|000008f0| 6e 61 6d 65 20 77 69 6c | 6c 20 62 65 20 61 64 64 |name wil|l be add|
|00000900| 65 64 2e 1f 0a 28 64 65 | 66 76 61 72 20 61 72 63 |ed...(de|fvar arc|
|00000910| 68 69 76 65 2d 6c 7a 68 | 2d 77 72 69 74 65 2d 66 |hive-lzh|-write-f|
|00000920| 69 6c 65 2d 6d 65 6d 62 | 65 72 20 28 71 75 6f 74 |ile-memb|er (quot|
|00000930| 65 20 28 22 6c 68 61 22 | 20 22 61 22 29 29 20 28 |e ("lha"| "a")) (|
|00000940| 23 24 20 2e 20 2d 32 31 | 39 38 29 29 0a 23 40 31 |#$ . -21|98)).#@1|
|00000950| 30 30 20 2a 49 66 20 6e | 6f 6e 2d 6e 69 6c 20 74 |00 *If n|on-nil t|
|00000960| 68 65 6e 20 70 6b 7a 69 | 70 20 6f 70 74 69 6f 6e |hen pkzi|p option|
|00000970| 20 61 72 65 20 75 73 65 | 64 20 69 6e 73 74 65 61 | are use|d instea|
|00000980| 64 20 6f 66 20 7a 69 70 | 20 6f 70 74 69 6f 6e 73 |d of zip| options|
|00000990| 2e 0a 4f 6e 6c 79 20 73 | 65 74 20 74 6f 20 74 72 |..Only s|et to tr|
|000009a0| 75 65 20 66 6f 72 20 6d | 73 64 6f 67 20 73 79 73 |ue for m|sdog sys|
|000009b0| 74 65 6d 73 21 1f 0a 28 | 64 65 66 76 61 72 20 61 |tems!..(|defvar a|
|000009c0| 72 63 68 69 76 65 2d 7a | 69 70 2d 75 73 65 2d 70 |rchive-z|ip-use-p|
|000009d0| 6b 7a 69 70 20 28 6d 65 | 6d 71 20 73 79 73 74 65 |kzip (me|mq syste|
|000009e0| 6d 2d 74 79 70 65 20 28 | 71 75 6f 74 65 20 28 6d |m-type (|quote (m|
|000009f0| 73 2d 64 6f 73 20 77 69 | 6e 64 6f 77 73 2d 6e 74 |s-dos wi|ndows-nt|
|00000a00| 29 29 29 20 28 23 24 20 | 2e 20 2d 32 33 38 37 29 |))) (#$ |. -2387)|
|00000a10| 29 0a 23 40 32 38 37 20 | 2a 50 72 6f 67 72 61 6d |).#@287 |*Program|
|00000a20| 20 61 6e 64 20 69 74 73 | 20 6f 70 74 69 6f 6e 73 | and its| options|
|00000a30| 20 74 6f 20 72 75 6e 20 | 69 6e 20 6f 72 64 65 72 | to run |in order|
|00000a40| 20 74 6f 20 65 78 74 72 | 61 63 74 20 61 20 7a 69 | to extr|act a zi|
|00000a50| 70 20 66 69 6c 65 20 6d | 65 6d 62 65 72 2e 0a 45 |p file m|ember..E|
|00000a60| 78 74 72 61 63 74 69 6f | 6e 20 73 68 6f 75 6c 64 |xtractio|n should|
|00000a70| 20 68 61 70 70 65 6e 20 | 74 6f 20 73 74 61 6e 64 | happen |to stand|
|00000a80| 61 72 64 20 6f 75 74 70 | 75 74 2e 20 20 41 72 63 |ard outp|ut. Arc|
|00000a90| 68 69 76 65 20 61 6e 64 | 20 6d 65 6d 62 65 72 20 |hive and| member |
|00000aa0| 6e 61 6d 65 20 77 69 6c | 6c 0a 62 65 20 61 64 64 |name wil|l.be add|
|00000ab0| 65 64 2e 20 20 49 66 20 | 60 61 72 63 68 69 76 65 |ed. If |`archive|
|00000ac0| 2d 7a 69 70 2d 75 73 65 | 2d 70 6b 7a 69 70 27 20 |-zip-use|-pkzip' |
|00000ad0| 69 73 20 6e 6f 6e 2d 6e | 69 6c 20 74 68 65 6e 20 |is non-n|il then |
|00000ae0| 74 68 69 73 20 70 72 6f | 67 72 61 6d 20 69 73 0a |this pro|gram is.|
|00000af0| 65 78 70 65 63 74 65 64 | 20 74 6f 20 65 78 74 72 |expected| to extr|
|00000b00| 61 63 74 20 74 6f 20 61 | 20 66 69 6c 65 20 6a 75 |act to a| file ju|
|00000b10| 6e 6b 69 6e 67 20 74 68 | 65 20 64 69 72 65 63 74 |nking th|e direct|
|00000b20| 6f 72 79 20 70 61 72 74 | 20 6f 66 20 74 68 65 20 |ory part| of the |
|00000b30| 6e 61 6d 65 2e 1f 0a 28 | 64 65 66 76 61 72 20 61 |name...(|defvar a|
|00000b40| 72 63 68 69 76 65 2d 7a | 69 70 2d 65 78 74 72 61 |rchive-z|ip-extra|
|00000b50| 63 74 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |ct (byte|-code ".|
|00000b60| 83 06 00 c1 87 c2 87 22 | 20 5b 61 72 63 68 69 76 |......."| [archiv|
|00000b70| 65 2d 7a 69 70 2d 75 73 | 65 2d 70 6b 7a 69 70 20 |e-zip-us|e-pkzip |
|00000b80| 28 22 70 6b 75 6e 7a 69 | 70 22 20 22 2d 65 22 29 |("pkunzi|p" "-e")|
|00000b90| 20 28 22 75 6e 7a 69 70 | 22 20 22 2d 71 71 22 20 | ("unzip|" "-qq" |
|00000ba0| 22 2d 63 22 29 5d 20 31 | 29 20 28 23 24 20 2e 20 |"-c")] 1|) (#$ . |
|00000bb0| 2d 32 35 38 34 29 29 0a | 23 40 31 31 30 20 2a 50 |-2584)).|#@110 *P|
|00000bc0| 72 6f 67 72 61 6d 20 61 | 6e 64 20 69 74 73 20 6f |rogram a|nd its o|
|00000bd0| 70 74 69 6f 6e 73 20 74 | 6f 20 72 75 6e 20 69 6e |ptions t|o run in|
|00000be0| 20 6f 72 64 65 72 20 74 | 6f 20 64 65 6c 65 74 65 | order t|o delete|
|00000bf0| 20 7a 69 70 20 66 69 6c | 65 20 6d 65 6d 62 65 72 | zip fil|e member|
|00000c00| 73 2e 0a 41 72 63 68 69 | 76 65 20 61 6e 64 20 6d |s..Archi|ve and m|
|00000c10| 65 6d 62 65 72 20 6e 61 | 6d 65 73 20 77 69 6c 6c |ember na|mes will|
|00000c20| 20 62 65 20 61 64 64 65 | 64 2e 1f 0a 28 64 65 66 | be adde|d...(def|
|00000c30| 76 61 72 20 61 72 63 68 | 69 76 65 2d 7a 69 70 2d |var arch|ive-zip-|
|00000c40| 65 78 70 75 6e 67 65 20 | 28 62 79 74 65 2d 63 6f |expunge |(byte-co|
|00000c50| 64 65 20 22 08 83 06 00 | c1 87 c2 87 22 20 5b 61 |de "....|...." [a|
|00000c60| 72 63 68 69 76 65 2d 7a | 69 70 2d 75 73 65 2d 70 |rchive-z|ip-use-p|
|00000c70| 6b 7a 69 70 20 28 22 70 | 6b 7a 69 70 22 20 22 2d |kzip ("p|kzip" "-|
|00000c80| 64 22 29 20 28 22 7a 69 | 70 22 20 22 2d 64 22 20 |d") ("zi|p" "-d" |
|00000c90| 22 2d 71 22 29 5d 20 31 | 29 20 28 23 24 20 2e 20 |"-q")] 1|) (#$ . |
|00000ca0| 2d 33 30 30 36 29 29 0a | 23 40 31 38 39 20 2a 50 |-3006)).|#@189 *P|
|00000cb0| 72 6f 67 72 61 6d 20 61 | 6e 64 20 69 74 73 20 6f |rogram a|nd its o|
|00000cc0| 70 74 69 6f 6e 73 20 74 | 6f 20 72 75 6e 20 69 6e |ptions t|o run in|
|00000cd0| 20 6f 72 64 65 72 20 74 | 6f 20 75 70 64 61 74 65 | order t|o update|
|00000ce0| 20 61 20 7a 69 70 20 66 | 69 6c 65 20 6d 65 6d 62 | a zip f|ile memb|
|00000cf0| 65 72 2e 0a 4f 70 74 69 | 6f 6e 73 20 73 68 6f 75 |er..Opti|ons shou|
|00000d00| 6c 64 20 65 6e 73 75 72 | 65 20 74 68 61 74 20 73 |ld ensur|e that s|
|00000d10| 70 65 63 69 66 69 65 64 | 20 64 69 72 65 63 74 6f |pecified| directo|
|00000d20| 72 79 20 77 69 6c 6c 20 | 62 65 20 70 75 74 20 69 |ry will |be put i|
|00000d30| 6e 74 6f 20 74 68 65 20 | 7a 69 70 0a 66 69 6c 65 |nto the |zip.file|
|00000d40| 2e 20 20 41 72 63 68 69 | 76 65 20 61 6e 64 20 6d |. Archi|ve and m|
|00000d50| 65 6d 62 65 72 20 6e 61 | 6d 65 20 77 69 6c 6c 20 |ember na|me will |
|00000d60| 62 65 20 61 64 64 65 64 | 2e 1f 0a 28 64 65 66 76 |be added|...(defv|
|00000d70| 61 72 20 61 72 63 68 69 | 76 65 2d 7a 69 70 2d 75 |ar archi|ve-zip-u|
|00000d80| 70 64 61 74 65 20 28 62 | 79 74 65 2d 63 6f 64 65 |pdate (b|yte-code|
|00000d90| 20 22 08 83 06 00 c1 87 | c2 87 22 20 5b 61 72 63 | "......|.." [arc|
|00000da0| 68 69 76 65 2d 7a 69 70 | 2d 75 73 65 2d 70 6b 7a |hive-zip|-use-pkz|
|00000db0| 69 70 20 28 22 70 6b 7a | 69 70 22 20 22 2d 75 22 |ip ("pkz|ip" "-u"|
|00000dc0| 29 20 28 22 7a 69 70 22 | 20 22 2d 71 22 29 5d 20 |) ("zip"| "-q")] |
|00000dd0| 31 29 20 28 23 24 20 2e | 20 2d 33 32 34 36 29 29 |1) (#$ .| -3246))|
|00000de0| 0a 23 40 31 39 36 20 2a | 50 72 6f 67 72 61 6d 20 |.#@196 *|Program |
|00000df0| 61 6e 64 20 69 74 73 20 | 6f 70 74 69 6f 6e 73 20 |and its |options |
|00000e00| 74 6f 20 72 75 6e 20 69 | 6e 20 6f 72 64 65 72 20 |to run i|n order |
|00000e10| 74 6f 20 75 70 64 61 74 | 65 20 61 20 63 61 73 65 |to updat|e a case|
|00000e20| 20 66 69 64 64 6c 65 64 | 20 7a 69 70 20 6d 65 6d | fiddled| zip mem|
|00000e30| 62 65 72 2e 0a 4f 70 74 | 69 6f 6e 73 20 73 68 6f |ber..Opt|ions sho|
|00000e40| 75 6c 64 20 65 6e 73 75 | 72 65 20 74 68 61 74 20 |uld ensu|re that |
|00000e50| 73 70 65 63 69 66 69 65 | 64 20 64 69 72 65 63 74 |specifie|d direct|
|00000e60| 6f 72 79 20 77 69 6c 6c | 20 62 65 20 70 75 74 20 |ory will| be put |
|00000e70| 69 6e 74 6f 20 74 68 65 | 20 7a 69 70 20 66 69 6c |into the| zip fil|
|00000e80| 65 2e 0a 41 72 63 68 69 | 76 65 20 61 6e 64 20 6d |e..Archi|ve and m|
|00000e90| 65 6d 62 65 72 20 6e 61 | 6d 65 20 77 69 6c 6c 20 |ember na|me will |
|00000ea0| 62 65 20 61 64 64 65 64 | 2e 1f 0a 28 64 65 66 76 |be added|...(defv|
|00000eb0| 61 72 20 61 72 63 68 69 | 76 65 2d 7a 69 70 2d 75 |ar archi|ve-zip-u|
|00000ec0| 70 64 61 74 65 2d 63 61 | 73 65 20 28 62 79 74 65 |pdate-ca|se (byte|
|00000ed0| 2d 63 6f 64 65 20 22 08 | 83 06 00 09 87 c2 87 22 |-code ".|......."|
|00000ee0| 20 5b 61 72 63 68 69 76 | 65 2d 7a 69 70 2d 75 73 | [archiv|e-zip-us|
|00000ef0| 65 2d 70 6b 7a 69 70 20 | 61 72 63 68 69 76 65 2d |e-pkzip |archive-|
|00000f00| 7a 69 70 2d 75 70 64 61 | 74 65 20 28 22 7a 69 70 |zip-upda|te ("zip|
|00000f10| 22 20 22 2d 71 22 20 22 | 2d 6b 22 29 5d 20 31 29 |" "-q" "|-k")] 1)|
|00000f20| 20 28 23 24 20 2e 20 2d | 33 35 35 39 29 29 0a 23 | (#$ . -|3559)).#|
|00000f30| 40 31 34 37 20 2a 49 66 | 20 6e 6f 6e 2d 6e 69 6c |@147 *If| non-nil|
|00000f40| 20 74 68 65 6e 20 7a 69 | 70 20 66 69 6c 65 20 6d | then zi|p file m|
|00000f50| 65 6d 62 65 72 73 20 61 | 72 65 20 63 61 73 65 20 |embers a|re case |
|00000f60| 66 69 64 64 6c 65 64 2e | 0a 43 61 73 65 20 66 69 |fiddled.|.Case fi|
|00000f70| 64 64 6c 69 6e 67 20 77 | 69 6c 6c 20 6f 6e 6c 79 |ddling w|ill only|
|00000f80| 20 68 61 70 70 65 6e 20 | 66 6f 72 20 6d 65 6d 62 | happen |for memb|
|00000f90| 65 72 73 20 63 72 65 61 | 74 65 64 20 62 79 20 61 |ers crea|ted by a|
|00000fa0| 20 73 79 73 74 65 6d 20 | 74 68 61 74 0a 75 73 65 | system |that.use|
|00000fb0| 73 20 63 61 73 65 6c 65 | 73 73 20 66 69 6c 65 20 |s casele|ss file |
|00000fc0| 6e 61 6d 65 73 2e 1f 0a | 28 64 65 66 76 61 72 20 |names...|(defvar |
|00000fd0| 61 72 63 68 69 76 65 2d | 7a 69 70 2d 63 61 73 65 |archive-|zip-case|
|00000fe0| 2d 66 69 64 64 6c 65 20 | 74 20 28 23 24 20 2e 20 |-fiddle |t (#$ . |
|00000ff0| 2d 33 38 39 33 29 29 0a | 23 40 31 35 37 20 2a 50 |-3893)).|#@157 *P|
|00001000| 72 6f 67 72 61 6d 20 61 | 6e 64 20 69 74 73 20 6f |rogram a|nd its o|
|00001010| 70 74 69 6f 6e 73 20 74 | 6f 20 72 75 6e 20 69 6e |ptions t|o run in|
|00001020| 20 6f 72 64 65 72 20 74 | 6f 20 65 78 74 72 61 63 | order t|o extrac|
|00001030| 74 20 61 20 7a 6f 6f 20 | 66 69 6c 65 20 6d 65 6d |t a zoo |file mem|
|00001040| 62 65 72 2e 0a 45 78 74 | 72 61 63 74 69 6f 6e 20 |ber..Ext|raction |
|00001050| 73 68 6f 75 6c 64 20 68 | 61 70 70 65 6e 20 74 6f |should h|appen to|
|00001060| 20 73 74 61 6e 64 61 72 | 64 20 6f 75 74 70 75 74 | standar|d output|
|00001070| 2e 20 20 41 72 63 68 69 | 76 65 20 61 6e 64 20 6d |. Archi|ve and m|
|00001080| 65 6d 62 65 72 20 6e 61 | 6d 65 20 77 69 6c 6c 0a |ember na|me will.|
|00001090| 62 65 20 61 64 64 65 64 | 2e 1f 0a 28 64 65 66 76 |be added|...(defv|
|000010a0| 61 72 20 61 72 63 68 69 | 76 65 2d 7a 6f 6f 2d 65 |ar archi|ve-zoo-e|
|000010b0| 78 74 72 61 63 74 20 28 | 71 75 6f 74 65 20 28 22 |xtract (|quote ("|
|000010c0| 7a 6f 6f 22 20 22 78 70 | 71 22 29 29 20 28 23 24 |zoo" "xp|q")) (#$|
|000010d0| 20 2e 20 2d 34 30 39 34 | 29 29 0a 23 40 31 31 30 | . -4094|)).#@110|
|000010e0| 20 2a 50 72 6f 67 72 61 | 6d 20 61 6e 64 20 69 74 | *Progra|m and it|
|000010f0| 73 20 6f 70 74 69 6f 6e | 73 20 74 6f 20 72 75 6e |s option|s to run|
|00001100| 20 69 6e 20 6f 72 64 65 | 72 20 74 6f 20 64 65 6c | in orde|r to del|
|00001110| 65 74 65 20 7a 6f 6f 20 | 66 69 6c 65 20 6d 65 6d |ete zoo |file mem|
|00001120| 62 65 72 73 2e 0a 41 72 | 63 68 69 76 65 20 61 6e |bers..Ar|chive an|
|00001130| 64 20 6d 65 6d 62 65 72 | 20 6e 61 6d 65 73 20 77 |d member| names w|
|00001140| 69 6c 6c 20 62 65 20 61 | 64 64 65 64 2e 1f 0a 28 |ill be a|dded...(|
|00001150| 64 65 66 76 61 72 20 61 | 72 63 68 69 76 65 2d 7a |defvar a|rchive-z|
|00001160| 6f 6f 2d 65 78 70 75 6e | 67 65 20 28 71 75 6f 74 |oo-expun|ge (quot|
|00001170| 65 20 28 22 7a 6f 6f 22 | 20 22 44 71 50 50 22 29 |e ("zoo"| "DqPP")|
|00001180| 29 20 28 23 24 20 2e 20 | 2d 34 33 32 31 29 29 0a |) (#$ . |-4321)).|
|00001190| 23 40 31 31 30 20 2a 50 | 72 6f 67 72 61 6d 20 61 |#@110 *P|rogram a|
|000011a0| 6e 64 20 69 74 73 20 6f | 70 74 69 6f 6e 73 20 74 |nd its o|ptions t|
|000011b0| 6f 20 72 75 6e 20 69 6e | 20 6f 72 64 65 72 20 74 |o run in| order t|
|000011c0| 6f 20 75 70 64 61 74 65 | 20 61 20 7a 6f 6f 20 66 |o update| a zoo f|
|000011d0| 69 6c 65 20 6d 65 6d 62 | 65 72 2e 0a 41 72 63 68 |ile memb|er..Arch|
|000011e0| 69 76 65 20 61 6e 64 20 | 6d 65 6d 62 65 72 20 6e |ive and |member n|
|000011f0| 61 6d 65 20 77 69 6c 6c | 20 62 65 20 61 64 64 65 |ame will| be adde|
|00001200| 64 2e 1f 0a 28 64 65 66 | 76 61 72 20 61 72 63 68 |d...(def|var arch|
|00001210| 69 76 65 2d 7a 6f 6f 2d | 77 72 69 74 65 2d 66 69 |ive-zoo-|write-fi|
|00001220| 6c 65 2d 6d 65 6d 62 65 | 72 20 28 71 75 6f 74 65 |le-membe|r (quote|
|00001230| 20 28 22 7a 6f 6f 22 20 | 22 61 22 29 29 20 28 23 | ("zoo" |"a")) (#|
|00001240| 24 20 2e 20 2d 34 35 30 | 32 29 29 0a 23 40 33 34 |$ . -450|2)).#@34|
|00001250| 20 2a 53 79 6d 62 6f 6c | 20 64 65 73 63 72 69 62 | *Symbol| describ|
|00001260| 69 6e 67 20 61 72 63 68 | 69 76 65 20 74 79 70 65 |ing arch|ive type|
|00001270| 2e 1f 0a 28 64 65 66 76 | 61 72 20 61 72 63 68 69 |...(defv|ar archi|
|00001280| 76 65 2d 73 75 62 74 79 | 70 65 20 6e 69 6c 20 28 |ve-subty|pe nil (|
|00001290| 23 24 20 2e 20 2d 34 36 | 38 39 29 29 0a 23 40 33 |#$ . -46|89)).#@3|
|000012a0| 35 20 2a 50 6f 73 69 74 | 69 6f 6e 20 6f 66 20 66 |5 *Posit|ion of f|
|000012b0| 69 72 73 74 20 63 6f 6e | 74 65 6e 74 73 20 6c 69 |irst con|tents li|
|000012c0| 6e 65 2e 1f 0a 28 64 65 | 66 76 61 72 20 61 72 63 |ne...(de|fvar arc|
|000012d0| 68 69 76 65 2d 66 69 6c | 65 2d 6c 69 73 74 2d 73 |hive-fil|e-list-s|
|000012e0| 74 61 72 74 20 6e 69 6c | 20 28 23 24 20 2e 20 2d |tart nil| (#$ . -|
|000012f0| 34 37 37 30 29 29 0a 23 | 40 34 32 20 2a 50 6f 73 |4770)).#|@42 *Pos|
|00001300| 69 74 69 6f 6e 20 6a 75 | 73 74 20 61 66 74 65 72 |ition ju|st after|
|00001310| 20 6c 61 73 74 20 63 6f | 6e 74 65 6e 74 73 20 6c | last co|ntents l|
|00001320| 69 6e 65 2e 1f 0a 28 64 | 65 66 76 61 72 20 61 72 |ine...(d|efvar ar|
|00001330| 63 68 69 76 65 2d 66 69 | 6c 65 2d 6c 69 73 74 2d |chive-fi|le-list-|
|00001340| 65 6e 64 20 6e 69 6c 20 | 28 23 24 20 2e 20 2d 34 |end nil |(#$ . -4|
|00001350| 38 36 30 29 29 0a 23 40 | 33 36 20 2a 50 6f 73 69 |860)).#@|36 *Posi|
|00001360| 74 69 6f 6e 20 6f 66 20 | 72 65 61 6c 20 61 72 63 |tion of |real arc|
|00001370| 68 69 76 65 27 73 20 73 | 74 61 72 74 2e 1f 0a 28 |hive's s|tart...(|
|00001380| 64 65 66 76 61 72 20 61 | 72 63 68 69 76 65 2d 70 |defvar a|rchive-p|
|00001390| 72 6f 70 65 72 2d 66 69 | 6c 65 2d 73 74 61 72 74 |roper-fi|le-start|
|000013a0| 20 6e 69 6c 20 28 23 24 | 20 2e 20 2d 34 39 35 35 | nil (#$| . -4955|
|000013b0| 29 29 0a 23 40 34 37 20 | 2a 4e 6f 6e 2d 6e 69 6c |)).#@47 |*Non-nil|
|000013c0| 20 69 66 20 74 68 65 20 | 61 72 63 68 69 76 65 20 | if the |archive |
|000013d0| 69 73 20 72 65 61 64 2d | 6f 6e 6c 79 20 6f 6e 20 |is read-|only on |
|000013e0| 64 69 73 6b 2e 1f 0a 28 | 64 65 66 76 61 72 20 61 |disk...(|defvar a|
|000013f0| 72 63 68 69 76 65 2d 72 | 65 61 64 2d 6f 6e 6c 79 |rchive-r|ead-only|
|00001400| 20 6e 69 6c 20 28 23 24 | 20 2e 20 2d 35 30 34 38 | nil (#$| . -5048|
|00001410| 29 29 0a 23 40 34 39 20 | 2a 4e 6f 6e 2d 6e 69 6c |)).#@49 |*Non-nil|
|00001420| 20 69 66 20 74 68 65 20 | 61 72 63 68 69 76 65 20 | if the |archive |
|00001430| 69 73 20 6f 75 74 73 69 | 64 65 20 66 69 6c 65 20 |is outsi|de file |
|00001440| 73 79 73 74 65 6d 2e 1f | 0a 28 64 65 66 76 61 72 |system..|.(defvar|
|00001450| 20 61 72 63 68 69 76 65 | 2d 72 65 6d 6f 74 65 20 | archive|-remote |
|00001460| 6e 69 6c 20 28 23 24 20 | 2e 20 2d 35 31 34 34 29 |nil (#$ |. -5144)|
|00001470| 29 0a 23 40 34 30 20 2a | 4e 61 6d 65 20 6f 66 20 |).#@40 *|Name of |
|00001480| 6c 6f 63 61 6c 20 63 6f | 70 79 20 6f 66 20 72 65 |local co|py of re|
|00001490| 6d 6f 74 65 20 61 72 63 | 68 69 76 65 2e 1f 0a 28 |mote arc|hive...(|
|000014a0| 64 65 66 76 61 72 20 61 | 72 63 68 69 76 65 2d 6c |defvar a|rchive-l|
|000014b0| 6f 63 61 6c 2d 6e 61 6d | 65 20 6e 69 6c 20 28 23 |ocal-nam|e nil (#|
|000014c0| 24 20 2e 20 2d 35 32 33 | 39 29 29 0a 23 40 34 32 |$ . -523|9)).#@42|
|000014d0| 20 2a 4c 6f 63 61 6c 20 | 6b 65 79 6d 61 70 20 66 | *Local |keymap f|
|000014e0| 6f 72 20 61 72 63 68 69 | 76 65 20 6d 6f 64 65 20 |or archi|ve mode |
|000014f0| 6c 69 73 74 69 6e 67 73 | 2e 1f 0a 28 64 65 66 76 |listings|...(defv|
|00001500| 61 72 20 61 72 63 68 69 | 76 65 2d 6d 6f 64 65 2d |ar archi|ve-mode-|
|00001510| 6d 61 70 20 6e 69 6c 20 | 28 23 24 20 2e 20 2d 35 |map nil |(#$ . -5|
|00001520| 33 32 39 29 29 0a 23 40 | 33 33 20 2a 43 6f 6c 75 |329)).#@|33 *Colu|
|00001530| 6d 6e 20 77 68 65 72 65 | 20 66 69 6c 65 20 6e 61 |mn where| file na|
|00001540| 6d 65 73 20 73 74 61 72 | 74 2e 1f 0a 28 64 65 66 |mes star|t...(def|
|00001550| 76 61 72 20 61 72 63 68 | 69 76 65 2d 66 69 6c 65 |var arch|ive-file|
|00001560| 2d 6e 61 6d 65 2d 69 6e | 64 65 6e 74 20 6e 69 6c |-name-in|dent nil|
|00001570| 20 28 23 24 20 2e 20 2d | 35 34 31 39 29 29 0a 23 | (#$ . -|5419)).#|
|00001580| 40 34 37 20 2a 4e 6f 6e | 2d 6e 69 6c 20 77 68 65 |@47 *Non|-nil whe|
|00001590| 6e 20 61 6c 74 65 72 6e | 61 74 65 20 69 6e 66 6f |n altern|ate info|
|000015a0| 72 6d 61 74 69 6f 6e 20 | 69 73 20 73 68 6f 77 6e |rmation |is shown|
|000015b0| 2e 1f 0a 28 64 65 66 76 | 61 72 20 61 72 63 68 69 |...(defv|ar archi|
|000015c0| 76 65 2d 61 6c 74 65 72 | 6e 61 74 65 2d 64 69 73 |ve-alter|nate-dis|
|000015d0| 70 6c 61 79 20 6e 69 6c | 20 28 23 24 20 2e 20 2d |play nil| (#$ . -|
|000015e0| 35 35 30 38 29 29 0a 28 | 62 79 74 65 2d 63 6f 64 |5508)).(|byte-cod|
|000015f0| 65 20 22 c0 c1 21 88 c2 | c1 c3 c4 23 87 22 20 5b |e "..!..|...#." [|
|00001600| 6d 61 6b 65 2d 76 61 72 | 69 61 62 6c 65 2d 62 75 |make-var|iable-bu|
|00001610| 66 66 65 72 2d 6c 6f 63 | 61 6c 20 61 72 63 68 69 |ffer-loc|al archi|
|00001620| 76 65 2d 61 6c 74 65 72 | 6e 61 74 65 2d 64 69 73 |ve-alter|nate-dis|
|00001630| 70 6c 61 79 20 70 75 74 | 20 70 65 72 6d 61 6e 65 |play put| permane|
|00001640| 6e 74 2d 6c 6f 63 61 6c | 20 74 5d 20 34 29 0a 23 |nt-local| t] 4).#|
|00001650| 40 34 31 20 2a 49 6e 20 | 61 72 63 68 69 76 65 20 |@41 *In |archive |
|00001660| 6d 65 6d 62 65 72 73 2c | 20 70 6f 69 6e 74 73 20 |members,| points |
|00001670| 74 6f 20 61 72 63 68 69 | 76 65 2e 1f 0a 28 64 65 |to archi|ve...(de|
|00001680| 66 76 61 72 20 61 72 63 | 68 69 76 65 2d 73 75 70 |fvar arc|hive-sup|
|00001690| 65 72 69 6f 72 2d 62 75 | 66 66 65 72 20 6e 69 6c |erior-bu|ffer nil|
|000016a0| 20 28 23 24 20 2e 20 2d | 35 37 31 36 29 29 0a 28 | (#$ . -|5716)).(|
|000016b0| 70 75 74 20 28 71 75 6f | 74 65 20 61 72 63 68 69 |put (quo|te archi|
|000016c0| 76 65 2d 73 75 70 65 72 | 69 6f 72 2d 62 75 66 66 |ve-super|ior-buff|
|000016d0| 65 72 29 20 28 71 75 6f | 74 65 20 70 65 72 6d 61 |er) (quo|te perma|
|000016e0| 6e 65 6e 74 2d 6c 6f 63 | 61 6c 29 20 74 29 0a 23 |nent-loc|al) t).#|
|000016f0| 40 33 37 20 2a 4e 6f 6e | 2d 6e 69 6c 20 69 6e 20 |@37 *Non|-nil in |
|00001700| 61 72 63 68 69 76 65 20 | 6d 65 6d 62 65 72 20 62 |archive |member b|
|00001710| 75 66 66 65 72 73 2e 1f | 0a 28 64 65 66 76 61 72 |uffers..|.(defvar|
|00001720| 20 61 72 63 68 69 76 65 | 2d 73 75 62 66 69 6c 65 | archive|-subfile|
|00001730| 2d 6d 6f 64 65 20 6e 69 | 6c 20 28 23 24 20 2e 20 |-mode ni|l (#$ . |
|00001740| 2d 35 38 37 36 29 29 0a | 28 62 79 74 65 2d 63 6f |-5876)).|(byte-co|
|00001750| 64 65 20 22 c0 c1 21 88 | c2 c1 c3 c4 23 88 c5 c6 |de "..!.|....#...|
|00001760| 21 84 34 00 c5 c6 21 84 | 19 00 c7 16 06 c6 0e 08 |!.4...!.|........|
|00001770| 42 16 08 c2 c6 c9 ca 23 | 88 c0 c6 21 88 c2 c6 c3 |B......#|...!....|
|00001780| c4 23 88 cb c6 c7 5c 22 | 88 c7 87 22 20 5b 6d 61 |.#....\"|..." [ma|
|00001790| 6b 65 2d 76 61 72 69 61 | 62 6c 65 2d 62 75 66 66 |ke-varia|ble-buff|
|000017a0| 65 72 2d 6c 6f 63 61 6c | 20 61 72 63 68 69 76 65 |er-local| archive|
|000017b0| 2d 73 75 62 66 69 6c 65 | 2d 6d 6f 64 65 20 70 75 |-subfile|-mode pu|
|000017c0| 74 20 70 65 72 6d 61 6e | 65 6e 74 2d 6c 6f 63 61 |t perman|ent-loca|
|000017d0| 6c 20 74 20 62 6f 75 6e | 64 70 20 62 75 66 66 65 |l t boun|dp buffe|
|000017e0| 72 2d 66 69 6c 65 2d 74 | 79 70 65 20 6e 69 6c 20 |r-file-t|ype nil |
|000017f0| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00001800| 74 20 76 61 72 69 61 62 | 6c 65 2d 64 6f 63 75 6d |t variab|le-docum|
|00001810| 65 6e 74 61 74 69 6f 6e | 20 22 2a 4e 69 6c 20 66 |entation| "*Nil f|
|00001820| 6f 72 20 64 6f 73 2d 73 | 74 79 6c 65 20 74 65 78 |or dos-s|tyle tex|
|00001830| 74 20 66 69 6c 65 2c 20 | 6e 6f 6e 2d 6e 69 6c 20 |t file, |non-nil |
|00001840| 6f 74 68 65 72 77 69 73 | 65 2e 22 20 73 65 74 2d |otherwis|e." set-|
|00001850| 64 65 66 61 75 6c 74 5d | 20 34 29 0a 23 40 34 33 |default]| 4).#@43|
|00001860| 20 4e 65 67 61 74 69 6f | 6e 20 6f 66 20 60 62 75 | Negatio|n of `bu|
|00001870| 66 66 65 72 2d 66 69 6c | 65 2d 74 79 70 65 27 20 |ffer-fil|e-type' |
|00001880| 77 68 69 63 68 20 73 65 | 65 2e 1f 0a 28 64 65 66 |which se|e...(def|
|00001890| 76 61 72 20 61 72 63 68 | 69 76 65 2d 73 75 62 66 |var arch|ive-subf|
|000018a0| 69 6c 65 2d 64 6f 73 20 | 6e 69 6c 20 28 23 24 20 |ile-dos |nil (#$ |
|000018b0| 2e 20 36 32 34 31 29 29 | 0a 28 62 79 74 65 2d 63 |. 6241))|.(byte-c|
|000018c0| 6f 64 65 20 22 c0 c1 21 | 88 c2 c1 c3 c4 23 87 22 |ode "..!|.....#."|
|000018d0| 20 5b 6d 61 6b 65 2d 76 | 61 72 69 61 62 6c 65 2d | [make-v|ariable-|
|000018e0| 62 75 66 66 65 72 2d 6c | 6f 63 61 6c 20 61 72 63 |buffer-l|ocal arc|
|000018f0| 68 69 76 65 2d 73 75 62 | 66 69 6c 65 2d 64 6f 73 |hive-sub|file-dos|
|00001900| 20 70 75 74 20 70 65 72 | 6d 61 6e 65 6e 74 2d 6c | put per|manent-l|
|00001910| 6f 63 61 6c 20 74 5d 20 | 34 29 0a 23 40 31 31 33 |ocal t] |4).#@113|
|00001920| 20 56 65 63 74 6f 72 20 | 6f 66 20 66 69 6c 65 20 | Vector |of file |
|00001930| 64 65 73 63 72 69 70 74 | 6f 72 73 2e 20 20 45 61 |descript|ors. Ea|
|00001940| 63 68 20 64 65 73 63 72 | 69 70 74 6f 72 20 69 73 |ch descr|iptor is|
|00001950| 0a 61 20 76 65 63 74 6f | 72 20 6f 66 20 5b 65 78 |.a vecto|r of [ex|
|00001960| 74 2d 66 69 6c 65 2d 6e | 61 6d 65 20 69 6e 74 2d |t-file-n|ame int-|
|00001970| 66 69 6c 65 2d 6e 61 6d | 65 20 63 61 73 65 2d 66 |file-nam|e case-f|
|00001980| 69 64 64 6c 65 64 20 6d | 6f 64 65 20 2e 2e 2e 5d |iddled m|ode ...]|
|00001990| 1f 0a 28 64 65 66 76 61 | 72 20 61 72 63 68 69 76 |..(defva|r archiv|
|000019a0| 65 2d 66 69 6c 65 73 20 | 6e 69 6c 20 28 23 24 20 |e-files |nil (#$ |
|000019b0| 2e 20 36 34 33 33 29 29 | 0a 28 6d 61 6b 65 2d 76 |. 6433))|.(make-v|
|000019c0| 61 72 69 61 62 6c 65 2d | 62 75 66 66 65 72 2d 6c |ariable-|buffer-l|
|000019d0| 6f 63 61 6c 20 28 71 75 | 6f 74 65 20 61 72 63 68 |ocal (qu|ote arch|
|000019e0| 69 76 65 2d 66 69 6c 65 | 73 29 29 0a 23 40 35 38 |ive-file|s)).#@58|
|000019f0| 20 2a 4e 6f 6e 2d 6e 69 | 6c 20 77 68 65 6e 20 72 | *Non-ni|l when r|
|00001a00| 75 6e 6e 69 6e 67 20 75 | 6e 64 65 72 20 75 6e 64 |unning u|nder und|
|00001a10| 65 72 20 4c 75 63 69 64 | 20 45 6d 61 63 73 20 6f |er Lucid| Emacs o|
|00001a20| 72 20 58 65 6d 61 63 73 | 2e 1f 0a 28 64 65 66 76 |r Xemacs|...(defv|
|00001a30| 61 72 20 61 72 63 68 69 | 76 65 2d 6c 65 6d 61 63 |ar archi|ve-lemac|
|00001a40| 73 20 28 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |s (strin|g-match |
|00001a50| 22 5c 5c 28 4c 75 63 69 | 64 5c 5c 7c 58 65 6d 61 |"\\(Luci|d\\|Xema|
|00001a60| 63 73 5c 5c 29 22 20 65 | 6d 61 63 73 2d 76 65 72 |cs\\)" e|macs-ver|
|00001a70| 73 69 6f 6e 29 20 28 23 | 24 20 2e 20 2d 36 36 34 |sion) (#|$ . -664|
|00001a80| 31 29 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 61 |1)).(def|alias 'a|
|00001a90| 72 63 68 69 76 65 2d 6e | 61 6d 65 20 23 5b 28 73 |rchive-n|ame #[(s|
|00001aa0| 75 66 66 69 78 29 20 22 | c0 c1 c2 0b 21 c4 0d 52 |uffix) "|....!..R|
|00001ab0| 21 87 22 20 5b 69 6e 74 | 65 72 6e 20 22 61 72 63 |!." [int|ern "arc|
|00001ac0| 68 69 76 65 2d 22 20 73 | 79 6d 62 6f 6c 2d 6e 61 |hive-" s|ymbol-na|
|00001ad0| 6d 65 20 61 72 63 68 69 | 76 65 2d 73 75 62 74 79 |me archi|ve-subty|
|00001ae0| 70 65 20 22 2d 22 20 73 | 75 66 66 69 78 5d 20 35 |pe "-" s|uffix] 5|
|00001af0| 5d 29 0a 28 70 75 74 20 | 28 71 75 6f 74 65 20 61 |]).(put |(quote a|
|00001b00| 72 63 68 69 76 65 2d 6e | 61 6d 65 29 20 28 71 75 |rchive-n|ame) (qu|
|00001b10| 6f 74 65 20 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a |ote byte|-optimiz|
|00001b20| 65 72 29 20 28 71 75 6f | 74 65 20 62 79 74 65 2d |er) (quo|te byte-|
|00001b30| 63 6f 6d 70 69 6c 65 2d | 69 6e 6c 69 6e 65 2d 65 |compile-|inline-e|
|00001b40| 78 70 61 6e 64 29 29 0a | 23 40 31 38 37 20 43 6f |xpand)).|#@187 Co|
|00001b50| 6e 76 65 72 74 20 6c 69 | 74 74 6c 65 20 65 6e 64 |nvert li|ttle end|
|00001b60| 69 61 6e 20 73 74 72 69 | 6e 67 2f 76 65 63 74 6f |ian stri|ng/vecto|
|00001b70| 72 20 74 6f 20 69 6e 74 | 65 67 65 72 2e 0a 41 6c |r to int|eger..Al|
|00001b80| 74 65 72 6e 61 74 69 76 | 65 6c 79 2c 20 66 69 72 |ternativ|ely, fir|
|00001b90| 73 74 20 61 72 67 75 6d | 65 6e 74 20 6d 61 79 20 |st argum|ent may |
|00001ba0| 62 65 20 61 20 62 75 66 | 66 65 72 20 70 6f 73 69 |be a buf|fer posi|
|00001bb0| 74 69 6f 6e 20 69 6e 20 | 74 68 65 20 63 75 72 72 |tion in |the curr|
|00001bc0| 65 6e 74 20 62 75 66 66 | 65 72 0a 69 6e 20 77 68 |ent buff|er.in wh|
|00001bd0| 69 63 68 20 63 61 73 65 | 20 61 20 73 65 63 6f 6e |ich case| a secon|
|00001be0| 64 20 61 72 67 75 6d 65 | 6e 74 2c 20 6c 65 6e 67 |d argume|nt, leng|
|00001bf0| 74 68 2c 20 73 68 6f 75 | 6c 64 20 62 65 20 73 75 |th, shou|ld be su|
|00001c00| 70 70 6c 69 65 64 2e 1f | 0a 28 64 65 66 61 6c 69 |pplied..|.(defali|
|00001c10| 61 73 20 27 61 72 63 68 | 69 76 65 2d 6c 2d 65 20 |as 'arch|ive-l-e |
|00001c20| 23 5b 28 73 74 72 20 26 | 6f 70 74 69 6f 6e 61 6c |#[(str &|optional|
|00001c30| 20 6c 65 6e 29 20 22 08 | 3b 83 0b 00 08 47 11 82 | len) ".|;....G..|
|00001c40| 11 00 08 89 09 5c 5c 7b | 10 c2 89 1b 1c 0b 09 57 |.....\\{|.......W|
|00001c50| 83 2c 00 0b 54 13 c5 5c | 66 c6 5c 22 08 09 0b 5a |.,..T..\|f.\"...Z|
|00001c60| 48 5c 5c 14 82 15 00 5c | 66 2a 87 22 20 5b 73 74 |H\\....\|f*." [st|
|00001c70| 72 20 6c 65 6e 20 30 20 | 69 20 72 65 73 75 6c 74 |r len 0 |i result|
|00001c80| 20 61 73 68 20 38 5d 20 | 34 20 28 23 24 20 2e 20 | ash 8] |4 (#$ . |
|00001c90| 36 39 39 30 29 5d 29 0a | 23 40 37 34 20 54 75 72 |6990)]).|#@74 Tur|
|00001ca0| 6e 20 61 6e 20 69 6e 74 | 65 67 65 72 20 6c 69 6b |n an int|eger lik|
|00001cb0| 65 20 30 37 30 30 20 28 | 69 2e 65 2e 2c 20 34 34 |e 0700 (|i.e., 44|
|00001cc0| 38 29 20 69 6e 74 6f 20 | 61 20 6d 6f 64 65 20 73 |8) into |a mode s|
|00001cd0| 74 72 69 6e 67 20 6c 69 | 6b 65 20 2d 72 77 78 2d |tring li|ke -rwx-|
|00001ce0| 2d 2d 2d 2d 2d 1f 0a 28 | 64 65 66 61 6c 69 61 73 |-----..(|defalias|
|00001cf0| 20 27 61 72 63 68 69 76 | 65 2d 69 6e 74 2d 74 6f | 'archiv|e-int-to|
|00001d00| 2d 6d 6f 64 65 20 23 5b | 28 6d 6f 64 65 29 20 22 |-mode #[|(mode) "|
|00001d10| c0 c1 c2 5c 22 1b c4 c5 | c6 0e 07 5c 22 21 84 14 |...\"...|...\"!..|
|00001d20| 00 0b c8 c9 49 88 c4 c5 | ca 0e 07 5c 22 21 84 23 |....I...|...\"!.#|
|00001d30| 00 0b c8 cb 49 88 c4 c5 | cc 0e 07 5c 22 21 84 32 |....I...|...\"!.2|
|00001d40| 00 0b cd ce 49 88 c4 c5 | cf 0e 07 5c 22 21 84 41 |....I...|...\"!.A|
|00001d50| 00 0b d0 d1 49 88 c4 c5 | d2 0e 07 5c 22 21 84 50 |....I...|...\"!.P|
|00001d60| 00 0b d3 d4 49 88 c4 c5 | d5 0e 07 5c 22 21 84 5f |....I...|...\"!._|
|00001d70| 00 0b d6 ce 49 88 c4 c5 | d7 0e 07 5c 22 21 84 6e |....I...|...\"!.n|
|00001d80| 00 0b d8 d1 49 88 c4 c5 | d9 0e 07 5c 22 21 84 7d |....I...|...\"!.}|
|00001d90| 00 0b da d4 49 88 c4 c5 | d6 0e 07 5c 22 21 84 8c |....I...|...\"!..|
|00001da0| 00 0b db ce 49 88 c4 c5 | d0 0e 07 5c 22 21 84 9b |....I...|...\"!..|
|00001db0| 00 0b d9 d1 49 88 c4 c5 | cd 0e 07 5c 22 21 84 aa |....I...|...\"!..|
|00001dc0| 00 0b dc d4 49 88 c4 c5 | dd 0e 07 5c 22 21 84 c7 |....I...|...\"!..|
|00001dd0| 00 0b d3 c5 0e 07 d2 5c | 22 c8 55 83 c4 00 de 82 |.......\|".U.....|
|00001de0| c5 00 df 49 88 c4 c5 e0 | 0e 07 5c 22 21 84 e4 00 |...I....|..\"!...|
|00001df0| 0b da c5 0e 07 d9 5c 22 | c8 55 83 e1 00 de 82 e2 |......\"|.U......|
|00001e00| 00 df 49 88 0b 29 87 22 | 20 5b 6d 61 6b 65 2d 73 |..I..)."| [make-s|
|00001e10| 74 72 69 6e 67 20 31 30 | 20 34 35 20 73 74 72 20 |tring 10| 45 str |
|00001e20| 7a 65 72 6f 70 20 6c 6f | 67 61 6e 64 20 31 36 33 |zerop lo|gand 163|
|00001e30| 38 34 20 6d 6f 64 65 20 | 30 20 31 30 30 20 38 31 |84 mode |0 100 81|
|00001e40| 39 32 20 39 39 20 32 35 | 36 20 31 20 31 31 34 20 |92 99 25|6 1 114 |
|00001e50| 31 32 38 20 32 20 31 31 | 39 20 36 34 20 33 20 31 |128 2 11|9 64 3 1|
|00001e60| 32 30 20 33 32 20 34 20 | 31 36 20 35 20 38 20 36 |20 32 4 |16 5 8 6|
|00001e70| 20 37 20 39 20 31 30 32 | 34 20 38 33 20 31 31 35 | 7 9 102|4 83 115|
|00001e80| 20 32 30 34 38 5d 20 35 | 20 28 23 24 20 2e 20 37 | 2048] 5| (#$ . 7|
|00001e90| 33 32 35 29 5d 29 0a 23 | 40 34 36 31 20 46 72 6f |325)]).#|@461 Fro|
|00001ea0| 6d 20 74 68 65 20 69 6e | 74 65 67 65 72 20 4f 4c |m the in|teger OL|
|00001eb0| 44 4d 4f 44 45 20 61 6e | 64 20 74 68 65 20 73 74 |DMODE an|d the st|
|00001ec0| 72 69 6e 67 20 4e 45 57 | 4d 4f 44 45 20 63 61 6c |ring NEW|MODE cal|
|00001ed0| 63 75 6c 61 74 65 20 61 | 20 6e 65 77 20 66 69 6c |culate a| new fil|
|00001ee0| 65 20 6d 6f 64 65 2e 0a | 4e 45 57 4d 4f 44 45 20 |e mode..|NEWMODE |
|00001ef0| 6d 61 79 20 62 65 20 61 | 6e 20 6f 63 74 61 6c 20 |may be a|n octal |
|00001f00| 6e 75 6d 62 65 72 20 69 | 6e 63 6c 75 64 69 6e 67 |number i|ncluding|
|00001f10| 20 61 20 6c 65 61 64 69 | 6e 67 20 7a 65 72 6f 20 | a leadi|ng zero |
|00001f20| 69 6e 20 77 68 69 63 68 | 20 63 61 73 65 20 69 74 |in which| case it|
|00001f30| 0a 77 69 6c 6c 20 62 65 | 63 6f 6d 65 20 74 68 65 |.will be|come the|
|00001f40| 20 6e 65 77 20 6d 6f 64 | 65 2e 0a 0a 4e 45 57 4d | new mod|e...NEWM|
|00001f50| 4f 44 45 20 6d 61 79 20 | 61 6c 73 6f 20 62 65 20 |ODE may |also be |
|00001f60| 61 20 72 65 6c 61 74 69 | 76 65 20 73 70 65 63 69 |a relati|ve speci|
|00001f70| 66 69 63 61 74 69 6f 6e | 20 6c 69 6b 65 20 22 6f |fication| like "o|
|00001f80| 67 2d 72 77 78 22 20 69 | 6e 20 77 68 69 63 68 20 |g-rwx" i|n which |
|00001f90| 63 61 73 65 0a 4f 4c 44 | 4d 4f 44 45 20 77 69 6c |case.OLD|MODE wil|
|00001fa0| 6c 20 62 65 20 6d 6f 64 | 69 66 69 65 64 20 61 63 |l be mod|ified ac|
|00001fb0| 63 6f 72 64 69 6e 67 6c | 79 20 6a 75 73 74 20 6c |cordingl|y just l|
|00001fc0| 69 6b 65 20 63 68 6d 6f | 64 28 32 29 20 77 6f 75 |ike chmo|d(2) wou|
|00001fd0| 6c 64 20 68 61 76 65 20 | 64 6f 6e 65 2e 0a 0a 49 |ld have |done...I|
|00001fe0| 66 20 6f 70 74 69 6f 6e | 61 6c 20 74 68 69 72 64 |f option|al third|
|00001ff0| 20 61 72 67 75 6d 65 6e | 74 20 45 52 52 4f 52 20 | argumen|t ERROR |
|00002000| 69 73 20 6e 6f 6e 2d 6e | 69 6c 20 61 6e 20 65 72 |is non-n|il an er|
|00002010| 72 6f 72 20 77 69 6c 6c | 20 62 65 20 73 69 67 6e |ror will| be sign|
|00002020| 61 6c 65 64 20 69 66 0a | 74 68 65 20 6d 6f 64 65 |aled if.|the mode|
|00002030| 20 69 73 20 69 6e 76 61 | 6c 69 64 2e 20 20 49 66 | is inva|lid. If|
|00002040| 20 45 52 52 4f 52 20 69 | 73 20 6e 69 6c 20 74 68 | ERROR i|s nil th|
|00002050| 65 6e 20 6e 69 6c 20 77 | 69 6c 6c 20 62 65 20 72 |en nil w|ill be r|
|00002060| 65 74 75 72 6e 65 64 2e | 1f 0a 28 64 65 66 61 6c |eturned.|..(defal|
|00002070| 69 61 73 20 27 61 72 63 | 68 69 76 65 2d 63 61 6c |ias 'arc|hive-cal|
|00002080| 63 2d 6d 6f 64 65 20 23 | 5b 28 6f 6c 64 6d 6f 64 |c-mode #|[(oldmod|
|00002090| 65 20 6e 65 77 6d 6f 64 | 65 20 26 6f 70 74 69 6f |e newmod|e &optio|
|000020a0| 6e 61 6c 20 65 72 72 6f | 72 29 20 22 c0 c1 5c 6e |nal erro|r) "..\n|
|000020b0| 5c 22 83 36 00 c3 5c 6e | 47 c4 1d 1e 06 1e 07 0d |\".6..\n|G.......|
|000020c0| 0e 06 57 83 2b 00 c8 0e | 07 c9 5c 22 5c 6e 0d 48 |..W.+...|..\"\n.H|
|000020d0| 5c 5c ca 5c 5c 16 07 0d | 54 89 15 82 11 00 cb cc |\\.\\...|T.......|
|000020e0| 0e 0d ce 5c 22 0e 07 5c | 22 2b 87 c0 cf 5c 6e 5c |...\"..\|"+...\n\|
|000020f0| 22 83 18 01 c3 0e 0d 5c | 6e d0 94 48 c3 c9 94 1d |"......\|n..H....|
|00002100| 1e 11 1e 12 1e 07 1e 13 | 0d c9 95 57 83 9d 00 5c |........|...W...\|
|00002110| 6e 0d 48 1e 14 cb 0e 11 | 0e 14 d5 55 83 6a 00 d6 |n.H.....|...U.j..|
|00002120| 82 93 00 0e 14 d7 55 83 | 75 00 d8 82 93 00 0e 14 |......U.|u.......|
|00002130| d9 55 83 80 00 da 82 93 | 00 0e 14 db 55 83 8b 00 |.U......|....U...|
|00002140| dc 82 93 00 0e 14 dd 55 | 85 93 00 de 5c 22 16 11 |.......U|....\"..|
|00002150| 0d 54 15 29 82 50 00 0e | 13 c4 95 57 83 14 01 5c |.T.).P..|...W...\|
|00002160| 6e 0e 13 48 89 1e 1f e0 | 55 83 b5 00 e1 82 d3 00 |n..H....|U.......|
|00002170| 0e 1f e2 55 83 c0 00 e3 | 82 d3 00 0e 1f e4 55 83 |...U....|......U.|
|00002180| cb 00 e5 82 d3 00 0e 1f | e6 55 85 d3 00 e7 1e 28 |........|.U.....(|
|00002190| 0e 12 e9 55 83 e6 00 cc | 0e 07 ea 0e 28 21 5c 22 |...U....|....(!\"|
|000021a0| 16 07 0e 12 eb 55 83 fe | 00 cc 0e 07 ea cc 0e 28 |.....U..|.......(|
|000021b0| 0e 11 5c 22 21 5c 22 16 | 07 82 5c 6e 01 cb 0e 07 |..\"!\".|..\n....|
|000021c0| cc 0e 28 0e 11 5c 22 5c | 22 16 07 2a 0e 13 54 89 |..(..\"\|"..*..T.|
|000021d0| 16 13 82 9f 00 0e 07 2d | 87 0e 2c 85 21 01 ec ed |.......-|..,.!...|
|000021e0| 5c 6e 5c 22 87 22 20 5b | 73 74 72 69 6e 67 2d 6d |\n\"." [|string-m|
|000021f0| 61 74 63 68 20 22 5e 30 | 5b 30 2d 37 5d 2a 24 22 |atch "^0|[0-7]*$"|
|00002200| 20 6e 65 77 6d 6f 64 65 | 20 30 20 31 20 69 20 6c | newmode| 0 1 i l|
|00002210| 65 6e 20 72 65 73 75 6c | 74 20 6c 73 68 20 33 20 |en resul|t lsh 3 |
|00002220| 2d 34 38 20 6c 6f 67 69 | 6f 72 20 6c 6f 67 61 6e |-48 logi|or logan|
|00002230| 64 20 6f 6c 64 6d 6f 64 | 65 20 36 35 30 32 34 20 |d oldmod|e 65024 |
|00002240| 22 5e 5c 5c 28 5b 61 67 | 6f 75 5d 2b 5c 5c 29 5c |"^\\([ag|ou]+\\)\|
|00002250| 5c 28 5b 2d 2d 2d 2b 3d | 5d 5c 5c 29 5c 5c 28 5b |\([---+=|]\\)\\([|
|00002260| 72 77 78 73 74 5d 2b 5c | 5c 29 24 22 20 32 20 62 |rwxst]+\|\)$" 2 b|
|00002270| 69 74 73 20 6f 70 20 77 | 68 6f 20 72 77 78 20 31 |its op w|ho rwx 1|
|00002280| 31 34 20 32 39 32 20 31 | 31 39 20 31 34 36 20 31 |14 292 1|19 146 1|
|00002290| 32 30 20 37 33 20 31 31 | 35 20 33 30 37 32 20 31 |20 73 11|5 3072 1|
|000022a0| 31 36 20 35 31 32 20 77 | 68 6f 63 20 39 37 20 34 |16 512 w|hoc 97 4|
|000022b0| 30 39 35 20 31 31 37 20 | 31 34 37 32 20 31 30 33 |095 117 |1472 103|
|000022c0| 20 32 31 30 34 20 31 31 | 31 20 37 20 77 68 6f 6d | 2104 11|1 7 whom|
|000022d0| 61 73 6b 20 36 31 20 6c | 6f 67 6e 6f 74 20 34 35 |ask 61 l|ognot 45|
|000022e0| 20 65 72 72 6f 72 20 22 | 49 6e 76 61 6c 69 64 20 | error "|Invalid |
|000022f0| 6d 6f 64 65 20 73 70 65 | 63 69 66 69 63 61 74 69 |mode spe|cificati|
|00002300| 6f 6e 3a 20 25 73 22 5d | 20 37 20 28 23 24 20 2e |on: %s"]| 7 (#$ .|
|00002310| 20 37 38 33 37 29 5d 29 | 0a 23 40 33 35 20 53 74 | 7837)])|.#@35 St|
|00002320| 72 69 6e 67 69 66 79 20 | 64 6f 73 20 70 61 63 6b |ringify |dos pack|
|00002330| 65 64 20 44 41 54 45 20 | 72 65 63 6f 72 64 2e 1f |ed DATE |record..|
|00002340| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 61 72 63 68 |.(defali|as 'arch|
|00002350| 69 76 65 2d 64 6f 73 64 | 61 74 65 20 23 5b 28 64 |ive-dosd|ate #[(d|
|00002360| 61 74 65 29 20 22 c0 c1 | 5c 6e c3 5c 22 c4 5c 22 |ate) "..|\n.\".\"|
|00002370| c5 5c 5c c0 c1 5c 6e c6 | 5c 22 c7 5c 22 c0 5c 6e |.\\..\n.|\".\".\n|
|00002380| c8 5c 22 1e 09 1e 5c 6e | 1e 0b 0e 5c 6e cc 56 84 |.\"...\n|...\n.V.|
|00002390| 28 00 0e 5c 6e cd 57 83 | 2c 00 ce 82 38 00 cf d0 |(..\n.W.|,...8...|
|000023a0| 0e 09 d1 0e 5c 6e 53 48 | 0e 0b 24 2b 87 22 20 5b |....\nSH|..$+." [|
|000023b0| 6c 6f 67 61 6e 64 20 61 | 73 68 20 64 61 74 65 20 |logand a|sh date |
|000023c0| 2d 39 20 31 32 37 20 31 | 39 38 30 20 2d 35 20 31 |-9 127 1|980 -5 1|
|000023d0| 35 20 33 31 20 64 61 79 | 20 6d 6f 6e 74 68 20 79 |5 31 day| month y|
|000023e0| 65 61 72 20 31 32 20 31 | 20 22 22 20 66 6f 72 6d |ear 12 1| "" form|
|000023f0| 61 74 20 22 25 32 64 2d | 25 73 2d 25 64 22 20 5b |at "%2d-|%s-%d" [|
|00002400| 22 4a 61 6e 22 20 22 46 | 65 62 22 20 22 4d 61 72 |"Jan" "F|eb" "Mar|
|00002410| 22 20 22 41 70 72 22 20 | 22 4d 61 79 22 20 22 4a |" "Apr" |"May" "J|
|00002420| 75 6e 22 20 22 4a 75 6c | 22 20 22 41 75 67 22 20 |un" "Jul|" "Aug" |
|00002430| 22 53 65 70 22 20 22 4f | 63 74 22 20 22 4e 6f 76 |"Sep" "O|ct" "Nov|
|00002440| 22 20 22 44 65 63 22 5d | 5d 20 35 20 28 23 24 20 |" "Dec"]|] 5 (#$ |
|00002450| 2e 20 38 39 39 30 29 5d | 29 0a 23 40 33 35 20 53 |. 8990)]|).#@35 S|
|00002460| 74 72 69 6e 67 69 66 79 | 20 64 6f 73 20 70 61 63 |tringify| dos pac|
|00002470| 6b 65 64 20 54 49 4d 45 | 20 72 65 63 6f 72 64 2e |ked TIME| record.|
|00002480| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 61 72 63 |..(defal|ias 'arc|
|00002490| 68 69 76 65 2d 64 6f 73 | 74 69 6d 65 20 23 5b 28 |hive-dos|time #[(|
|000024a0| 74 69 6d 65 29 20 22 c0 | c1 5c 6e c3 5c 22 c4 5c |time) ".|.\n.\".\|
|000024b0| 22 c0 c1 5c 6e c5 5c 22 | c6 5c 22 c0 5c 6e c4 5c |"..\n.\"|.\".\n.\|
|000024c0| 22 c7 5f 1e 08 1e 09 1e | 5c 6e cb cc 0e 5c 6e 0e |"._.....|\n...\n.|
|000024d0| 09 0e 08 24 2b 87 22 20 | 5b 6c 6f 67 61 6e 64 20 |...$+." |[logand |
|000024e0| 61 73 68 20 74 69 6d 65 | 20 2d 31 31 20 33 31 20 |ash time| -11 31 |
|000024f0| 2d 35 20 35 33 20 32 20 | 73 65 63 6f 6e 64 20 6d |-5 53 2 |second m|
|00002500| 69 6e 75 74 65 20 68 6f | 75 72 20 66 6f 72 6d 61 |inute ho|ur forma|
|00002510| 74 20 22 25 30 32 64 3a | 25 30 32 64 3a 25 30 32 |t "%02d:|%02d:%02|
|00002520| 64 22 5d 20 35 20 28 23 | 24 20 2e 20 39 33 31 31 |d"] 5 (#|$ . 9311|
|00002530| 29 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 61 |)]).(def|alias 'a|
|00002540| 72 63 68 69 76 65 2d 67 | 65 74 2d 6c 69 6e 65 6e |rchive-g|et-linen|
|00002550| 6f 20 23 5b 6e 69 6c 20 | 22 60 08 59 83 10 00 c1 |o #[nil |"`.Y....|
|00002560| 08 8a c2 79 88 60 29 5c | 22 87 c2 87 22 20 5b 61 |...y.`)\|"..." [a|
|00002570| 72 63 68 69 76 65 2d 66 | 69 6c 65 2d 6c 69 73 74 |rchive-f|ile-list|
|00002580| 2d 73 74 61 72 74 20 63 | 6f 75 6e 74 2d 6c 69 6e |-start c|ount-lin|
|00002590| 65 73 20 30 5d 20 33 5d | 29 0a 23 40 31 32 32 20 |es 0] 3]|).#@122 |
|000025a0| 52 65 74 75 72 6e 20 74 | 68 65 20 64 65 73 63 72 |Return t|he descr|
|000025b0| 69 70 74 6f 72 20 76 65 | 63 74 6f 72 20 66 6f 72 |iptor ve|ctor for|
|000025c0| 20 66 69 6c 65 20 61 74 | 20 70 6f 69 6e 74 2e 0a | file at| point..|
|000025d0| 44 6f 65 73 20 6e 6f 74 | 20 73 69 67 6e 61 6c 20 |Does not| signal |
|000025e0| 61 6e 20 65 72 72 6f 72 | 20 69 66 20 6f 70 74 69 |an error| if opti|
|000025f0| 6f 6e 61 6c 20 73 65 63 | 6f 6e 64 20 61 72 67 75 |onal sec|ond argu|
|00002600| 6d 65 6e 74 20 4e 4f 45 | 52 52 4f 52 20 69 73 20 |ment NOE|RROR is |
|00002610| 6e 6f 6e 2d 6e 69 6c 2e | 1f 0a 28 64 65 66 61 6c |non-nil.|..(defal|
|00002620| 69 61 73 20 27 61 72 63 | 68 69 76 65 2d 67 65 74 |ias 'arc|hive-get|
|00002630| 2d 64 65 73 63 72 20 23 | 5b 28 26 6f 70 74 69 6f |-descr #|[(&optio|
|00002640| 6e 61 6c 20 6e 6f 65 72 | 72 6f 72 29 20 22 c0 20 |nal noer|ror) ". |
|00002650| 19 60 5c 6e 59 83 2b 00 | 09 0b 47 57 83 2b 00 0b |.`\nY.+.|..GW.+..|
|00002660| 09 48 1c c5 5c 66 21 83 | 1e 00 5c 66 82 27 00 0e |.H..\f!.|..\f.'..|
|00002670| 06 3f 85 27 00 c7 c8 21 | 29 82 34 00 0e 06 3f 85 |.?.'...!|).4...?.|
|00002680| 34 00 c7 c9 21 29 87 22 | 20 5b 61 72 63 68 69 76 |4...!)."| [archiv|
|00002690| 65 2d 67 65 74 2d 6c 69 | 6e 65 6e 6f 20 6e 6f 20 |e-get-li|neno no |
|000026a0| 61 72 63 68 69 76 65 2d | 66 69 6c 65 2d 6c 69 73 |archive-|file-lis|
|000026b0| 74 2d 73 74 61 72 74 20 | 61 72 63 68 69 76 65 2d |t-start |archive-|
|000026c0| 66 69 6c 65 73 20 69 74 | 65 6d 20 76 65 63 74 6f |files it|em vecto|
|000026d0| 72 70 20 6e 6f 65 72 72 | 6f 72 20 65 72 72 6f 72 |rp noerr|or error|
|000026e0| 20 22 45 6e 74 72 79 20 | 69 73 20 6e 6f 74 20 61 | "Entry |is not a|
|000026f0| 20 72 65 67 75 6c 61 72 | 20 6d 65 6d 62 65 72 20 | regular| member |
|00002700| 6f 66 20 74 68 65 20 61 | 72 63 68 69 76 65 22 20 |of the a|rchive" |
|00002710| 22 4c 69 6e 65 20 64 6f | 65 73 20 6e 6f 74 20 64 |"Line do|es not d|
|00002720| 65 73 63 72 69 62 65 20 | 61 20 6d 65 6d 62 65 72 |escribe |a member|
|00002730| 20 6f 66 20 74 68 65 20 | 61 72 63 68 69 76 65 22 | of the |archive"|
|00002740| 5d 20 32 20 28 23 24 20 | 2e 20 39 36 33 32 29 5d |] 2 (#$ |. 9632)]|
|00002750| 29 0a 23 40 34 35 35 20 | 4d 61 6a 6f 72 20 6d 6f |).#@455 |Major mo|
|00002760| 64 65 20 66 6f 72 20 76 | 69 65 77 69 6e 67 20 61 |de for v|iewing a|
|00002770| 6e 20 61 72 63 68 69 76 | 65 20 66 69 6c 65 20 69 |n archiv|e file i|
|00002780| 6e 20 61 20 64 69 72 65 | 64 2d 6c 69 6b 65 20 77 |n a dire|d-like w|
|00002790| 61 79 2e 0a 59 6f 75 20 | 63 61 6e 20 6d 6f 76 65 |ay..You |can move|
|000027a0| 20 61 72 6f 75 6e 64 20 | 75 73 69 6e 67 20 74 68 | around |using th|
|000027b0| 65 20 75 73 75 61 6c 20 | 63 75 72 73 6f 72 20 6d |e usual |cursor m|
|000027c0| 6f 74 69 6f 6e 20 63 6f | 6d 6d 61 6e 64 73 2e 0a |otion co|mmands..|
|000027d0| 4c 65 74 74 65 72 73 20 | 6e 6f 20 6c 6f 6e 67 65 |Letters |no longe|
|000027e0| 72 20 69 6e 73 65 72 74 | 20 74 68 65 6d 73 65 6c |r insert| themsel|
|000027f0| 76 65 73 2e 0a 54 79 70 | 65 20 60 65 27 20 74 6f |ves..Typ|e `e' to|
|00002800| 20 70 75 6c 6c 20 61 20 | 66 69 6c 65 20 6f 75 74 | pull a |file out|
|00002810| 20 6f 66 20 74 68 65 20 | 61 72 63 68 69 76 65 20 | of the |archive |
|00002820| 61 6e 64 20 69 6e 74 6f | 20 69 74 73 20 6f 77 6e |and into| its own|
|00002830| 20 62 75 66 66 65 72 3b | 0a 6f 72 20 63 6c 69 63 | buffer;|.or clic|
|00002840| 6b 20 6d 6f 75 73 65 2d | 32 20 6f 6e 20 74 68 65 |k mouse-|2 on the|
|00002850| 20 66 69 6c 65 27 73 20 | 6c 69 6e 65 20 69 6e 20 | file's |line in |
|00002860| 74 68 65 20 61 72 63 68 | 69 76 65 20 6d 6f 64 65 |the arch|ive mode|
|00002870| 20 62 75 66 66 65 72 2e | 0a 0a 49 66 20 79 6f 75 | buffer.|..If you|
|00002880| 20 65 64 69 74 20 61 20 | 73 75 62 2d 66 69 6c 65 | edit a |sub-file|
|00002890| 20 6f 66 20 74 68 69 73 | 20 61 72 63 68 69 76 65 | of this| archive|
|000028a0| 20 28 61 73 20 77 69 74 | 68 20 74 68 65 20 60 65 | (as wit|h the `e|
|000028b0| 27 20 63 6f 6d 6d 61 6e | 64 29 20 61 6e 64 0a 73 |' comman|d) and.s|
|000028c0| 61 76 65 20 69 74 2c 20 | 74 68 65 20 63 6f 6e 74 |ave it, |the cont|
|000028d0| 65 6e 74 73 20 6f 66 20 | 74 68 61 74 20 62 75 66 |ents of |that buf|
|000028e0| 66 65 72 20 77 69 6c 6c | 20 62 65 20 73 61 76 65 |fer will| be save|
|000028f0| 64 20 62 61 63 6b 20 69 | 6e 74 6f 20 74 68 65 0a |d back i|nto the.|
|00002900| 61 72 63 68 69 76 65 2e | 0a 0a 5c 7b 61 72 63 68 |archive.|..\{arch|
|00002910| 69 76 65 2d 6d 6f 64 65 | 2d 6d 61 70 7d 1f 0a 28 |ive-mode|-map}..(|
|00002920| 64 65 66 61 6c 69 61 73 | 20 27 61 72 63 68 69 76 |defalias| 'archiv|
|00002930| 65 2d 6d 6f 64 65 20 23 | 5b 28 26 6f 70 74 69 6f |e-mode #|[(&optio|
|00002940| 6e 61 6c 20 66 6f 72 63 | 65 29 20 22 c0 20 c1 55 |nal forc|e) ". .U|
|00002950| 83 5c 6e 00 5c 6e 20 87 | 0b 3f 85 10 00 5c 66 3f |.\n.\n .|.?...\f?|
|00002960| 85 ad 00 c5 20 1e 06 c7 | c8 0e 06 21 21 89 1e 09 |.... ...|...!!...|
|00002970| c1 0e 09 c1 48 96 49 88 | ca 20 88 cb cc 21 88 0e |....H.I.|. ...!..|
|00002980| 06 16 5c 66 cb cd 21 88 | ce 16 0d cf c1 21 88 cb |..\f..!.|.....!..|
|00002990| d0 21 88 d1 d0 d2 5c 22 | 88 cb d3 21 88 d4 16 13 |.!....\"|...!....|
|000029a0| cb d5 21 88 d4 16 15 d6 | 16 17 cb d8 21 88 d9 da |..!.....|....!...|
|000029b0| 20 21 3f 16 18 cb db 21 | 88 cb dc 21 88 dd 0e 1e | !?....!|...!....|
|000029c0| da 20 5c 22 16 1c df 16 | 20 0e 09 e1 50 16 5c 22 |. \"....| ...P.\"|
|000029d0| e3 e4 1e 25 e6 e7 c8 0e | 5c 66 21 e8 0e 25 52 21 |...%....|\f!..%R!|
|000029e0| 29 e9 5c 22 88 ea 0e 2b | 21 88 2a cb ec 21 88 cb |).\"...+|!.*..!..|
|000029f0| ed 21 88 cb ee 21 88 cb | ef 21 88 f0 20 88 d6 89 |.!...!..|.!.. ...|
|00002a00| 16 31 87 22 20 5b 62 75 | 66 66 65 72 2d 73 69 7a |.1." [bu|ffer-siz|
|00002a10| 65 20 30 20 64 65 66 61 | 75 6c 74 2d 6d 61 6a 6f |e 0 defa|ult-majo|
|00002a20| 72 2d 6d 6f 64 65 20 66 | 6f 72 63 65 20 61 72 63 |r-mode f|orce arc|
|00002a30| 68 69 76 65 2d 66 69 6c | 65 73 20 61 72 63 68 69 |hive-fil|es archi|
|00002a40| 76 65 2d 66 69 6e 64 2d | 74 79 70 65 20 74 79 70 |ve-find-|type typ|
|00002a50| 65 20 63 6f 70 79 2d 73 | 65 71 75 65 6e 63 65 20 |e copy-s|equence |
|00002a60| 73 79 6d 62 6f 6c 2d 6e | 61 6d 65 20 74 79 70 65 |symbol-n|ame type|
|00002a70| 6e 61 6d 65 20 6b 69 6c | 6c 2d 61 6c 6c 2d 6c 6f |name kil|l-all-lo|
|00002a80| 63 61 6c 2d 76 61 72 69 | 61 62 6c 65 73 20 6d 61 |cal-vari|ables ma|
|00002a90| 6b 65 2d 6c 6f 63 61 6c | 2d 76 61 72 69 61 62 6c |ke-local|-variabl|
|00002aa0| 65 20 61 72 63 68 69 76 | 65 2d 73 75 62 74 79 70 |e archiv|e-subtyp|
|00002ab0| 65 20 72 65 76 65 72 74 | 2d 62 75 66 66 65 72 2d |e revert|-buffer-|
|00002ac0| 66 75 6e 63 74 69 6f 6e | 20 61 72 63 68 69 76 65 |function| archive|
|00002ad0| 2d 6d 6f 64 65 2d 72 65 | 76 65 72 74 20 61 75 74 |-mode-re|vert aut|
|00002ae0| 6f 2d 73 61 76 65 2d 6d | 6f 64 65 20 6c 6f 63 61 |o-save-m|ode loca|
|00002af0| 6c 2d 77 72 69 74 65 2d | 66 69 6c 65 2d 68 6f 6f |l-write-|file-hoo|
|00002b00| 6b 73 20 61 64 64 2d 68 | 6f 6f 6b 20 61 72 63 68 |ks add-h|ook arch|
|00002b10| 69 76 65 2d 77 72 69 74 | 65 2d 66 69 6c 65 20 72 |ive-writ|e-file r|
|00002b20| 65 71 75 69 72 65 2d 66 | 69 6e 61 6c 2d 6e 65 77 |equire-f|inal-new|
|00002b30| 6c 69 6e 65 20 6e 69 6c | 20 65 6e 61 62 6c 65 2d |line nil| enable-|
|00002b40| 6c 6f 63 61 6c 2d 76 61 | 72 69 61 62 6c 65 73 20 |local-va|riables |
|00002b50| 74 20 62 75 66 66 65 72 | 2d 66 69 6c 65 2d 74 79 |t buffer|-file-ty|
|00002b60| 70 65 20 61 72 63 68 69 | 76 65 2d 72 65 61 64 2d |pe archi|ve-read-|
|00002b70| 6f 6e 6c 79 20 66 69 6c | 65 2d 77 72 69 74 61 62 |only fil|e-writab|
|00002b80| 6c 65 2d 70 20 62 75 66 | 66 65 72 2d 66 69 6c 65 |le-p buf|fer-file|
|00002b90| 2d 6e 61 6d 65 20 61 72 | 63 68 69 76 65 2d 6c 6f |-name ar|chive-lo|
|00002ba0| 63 61 6c 2d 6e 61 6d 65 | 20 61 72 63 68 69 76 65 |cal-name| archive|
|00002bb0| 2d 72 65 6d 6f 74 65 20 | 73 74 72 69 6e 67 2d 6d |-remote |string-m|
|00002bc0| 61 74 63 68 20 61 72 63 | 68 69 76 65 2d 72 65 6d |atch arc|hive-rem|
|00002bd0| 6f 74 65 2d 72 65 67 65 | 78 70 20 61 72 63 68 69 |ote-rege|xp archi|
|00002be0| 76 65 2d 6d 6f 64 65 20 | 6d 61 6a 6f 72 2d 6d 6f |ve-mode |major-mo|
|00002bf0| 64 65 20 22 2d 41 72 63 | 68 69 76 65 22 20 6d 6f |de "-Arc|hive" mo|
|00002c00| 64 65 2d 6e 61 6d 65 20 | 72 75 6e 2d 68 6f 6f 6b |de-name |run-hook|
|00002c10| 73 20 22 6d 6f 64 65 2d | 68 6f 6f 6b 22 20 73 75 |s "mode-|hook" su|
|00002c20| 66 66 69 78 20 69 6e 74 | 65 72 6e 20 22 61 72 63 |ffix int|ern "arc|
|00002c30| 68 69 76 65 2d 22 20 22 | 2d 22 20 61 72 63 68 69 |hive-" "|-" archi|
|00002c40| 76 65 2d 6d 6f 64 65 2d | 68 6f 6f 6b 20 75 73 65 |ve-mode-|hook use|
|00002c50| 2d 6c 6f 63 61 6c 2d 6d | 61 70 20 61 72 63 68 69 |-local-m|ap archi|
|00002c60| 76 65 2d 6d 6f 64 65 2d | 6d 61 70 20 61 72 63 68 |ve-mode-|map arch|
|00002c70| 69 76 65 2d 70 72 6f 70 | 65 72 2d 66 69 6c 65 2d |ive-prop|er-file-|
|00002c80| 73 74 61 72 74 20 61 72 | 63 68 69 76 65 2d 66 69 |start ar|chive-fi|
|00002c90| 6c 65 2d 6c 69 73 74 2d | 73 74 61 72 74 20 61 72 |le-list-|start ar|
|00002ca0| 63 68 69 76 65 2d 66 69 | 6c 65 2d 6c 69 73 74 2d |chive-fi|le-list-|
|00002cb0| 65 6e 64 20 61 72 63 68 | 69 76 65 2d 66 69 6c 65 |end arch|ive-file|
|00002cc0| 2d 6e 61 6d 65 2d 69 6e | 64 65 6e 74 20 61 72 63 |-name-in|dent arc|
|00002cd0| 68 69 76 65 2d 73 75 6d | 6d 61 72 69 7a 65 20 62 |hive-sum|marize b|
|00002ce0| 75 66 66 65 72 2d 72 65 | 61 64 2d 6f 6e 6c 79 5d |uffer-re|ad-only]|
|00002cf0| 20 37 20 28 23 24 20 2e | 20 31 30 30 37 32 29 5d | 7 (#$ .| 10072)]|
|00002d00| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |).(byte-|code "..|
|00002d10| c2 c3 23 88 5c 66 84 df | 01 c5 20 14 c6 5c 66 21 |..#.\f..|.. ..\f!|
|00002d20| 88 c7 5c 66 c8 c9 23 88 | c7 5c 66 ca cb 23 88 c7 |..\f..#.|.\f..#..|
|00002d30| 5c 66 cc cd 23 88 c7 5c | 66 ce cd 23 88 c7 5c 66 |\f..#..\|f..#..\f|
|00002d40| cf d0 23 88 c7 5c 66 d1 | d0 23 88 c7 5c 66 d2 d0 |..#..\f.|.#..\f..|
|00002d50| 23 88 c7 5c 66 d3 d4 23 | 88 c7 5c 66 d5 d6 23 88 |#..\f..#|..\f..#.|
|00002d60| c7 5c 66 d7 d8 23 88 c7 | 5c 66 d9 c9 23 88 c7 5c |.\f..#..|\f..#..\|
|00002d70| 66 da c9 23 88 c7 5c 66 | db c9 23 88 c7 5c 66 dc |f..#..\f|..#..\f.|
|00002d80| dd 23 88 c7 5c 66 de df | 23 88 c7 5c 66 e0 df 23 |.#..\f..|#..\f..#|
|00002d90| 88 c7 5c 66 e1 df 23 88 | c7 5c 66 e2 e3 23 88 c7 |..\f..#.|.\f..#..|
|00002da0| 5c 66 e4 e5 23 88 c7 5c | 66 e6 e7 23 88 c7 5c 66 |\f..#..\|f..#..\f|
|00002db0| e8 e9 23 88 c7 5c 66 ea | eb 23 88 c7 5c 66 ec ed |..#..\f.|.#..\f..|
|00002dc0| 23 88 c7 5c 66 ee dd 23 | 88 c7 5c 66 ef f0 23 88 |#..\f..#|..\f..#.|
|00002dd0| c7 5c 66 f1 f2 23 88 c7 | 5c 66 f3 f4 23 88 0e 35 |.\f..#..|\f..#..5|
|00002de0| 83 c7 00 c7 5c 66 f6 f7 | 23 88 c7 5c 66 f8 f7 23 |....\f..|#..\f..#|
|00002df0| 88 82 cf 00 f9 fa f7 5c | 66 0e 3b 24 88 c7 5c 66 |.......\|f.;$..\f|
|00002e00| 0e 35 83 da 00 fc 82 db | 00 fd fe 23 88 0e 35 84 |.5......|...#..5.|
|00002e10| df 01 c7 5c 66 ff 81 40 | 00 23 88 c7 5c 66 81 41 |...\f..@|.#..\f.A|
|00002e20| 00 81 42 00 81 43 00 81 | 42 00 21 42 23 88 c7 5c |..B..C..|B.!B#..\|
|00002e30| 66 81 44 00 81 45 00 23 | 88 c0 cb 81 46 00 81 47 |f.D..E.#|....F..G|
|00002e40| 00 23 88 c7 5c 66 81 48 | 00 81 49 00 23 88 c7 5c |.#..\f.H|..I.#..\|
|00002e50| 66 81 4a 00 81 4b 00 23 | 88 c7 5c 66 81 4c 00 81 |f.J..K.#|..\f.L..|
|00002e60| 4d 00 23 88 c7 5c 66 81 | 4e 00 81 4f 00 23 88 c7 |M.#..\f.|N..O.#..|
|00002e70| 5c 66 81 50 00 81 51 00 | 81 43 00 81 51 00 21 42 |\f.P..Q.|.C..Q.!B|
|00002e80| 23 88 c7 5c 66 81 52 00 | 81 53 00 23 88 c7 5c 66 |#..\f.R.|.S.#..\f|
|00002e90| 81 54 00 81 55 00 23 88 | c7 5c 66 81 56 00 81 57 |.T..U.#.|.\f.V..W|
|00002ea0| 00 23 88 c7 5c 66 81 58 | 00 81 59 00 23 88 c7 5c |.#..\f.X|..Y.#..\|
|00002eb0| 66 81 5a 00 81 5b 00 81 | 43 00 81 5b 00 21 42 23 |f.Z..[..|C..[.!B#|
|00002ec0| 88 c7 5c 66 81 5c 5c 00 | 81 5d 00 23 88 c0 f4 81 |..\f.\\.|.].#....|
|00002ed0| 46 00 81 5e 00 23 88 c7 | 5c 66 81 5f 00 81 60 00 |F..^.#..|\f._..`.|
|00002ee0| 23 88 c0 f2 81 46 00 81 | 61 00 23 88 c7 5c 66 81 |#....F..|a.#..\f.|
|00002ef0| 62 00 81 63 00 23 88 c0 | f0 81 46 00 81 64 00 23 |b..c.#..|..F..d.#|
|00002f00| 88 c7 5c 66 81 65 00 81 | 66 00 23 88 c0 e3 81 46 |..\f.e..|f.#....F|
|00002f10| 00 81 67 00 23 88 c7 5c | 66 81 68 00 81 69 00 23 |..g.#..\|f.h..i.#|
|00002f20| 88 81 6a 00 1e 6b 81 6c | 00 1e 6d 0e 6e 81 6f 00 |..j..k.l|..m.n.o.|
|00002f30| 3e 83 f8 01 0e 6b 43 82 | fd 01 0e 6b 0e 6d 44 1e |>....kC.|...k.mD.|
|00002f40| 70 0e 6b 0e 71 9d 84 11 | 02 81 72 00 0e 70 0e 71 |p.k.q...|..r..p.q|
|00002f50| 5c 22 16 71 2b c0 87 22 | 20 5b 70 75 74 20 61 72 |\".q+.."| [put ar|
|00002f60| 63 68 69 76 65 2d 6d 6f | 64 65 20 6d 6f 64 65 2d |chive-mo|de mode-|
|00002f70| 63 6c 61 73 73 20 73 70 | 65 63 69 61 6c 20 61 72 |class sp|ecial ar|
|00002f80| 63 68 69 76 65 2d 6d 6f | 64 65 2d 6d 61 70 20 6d |chive-mo|de-map m|
|00002f90| 61 6b 65 2d 6b 65 79 6d | 61 70 20 73 75 70 70 72 |ake-keym|ap suppr|
|00002fa0| 65 73 73 2d 6b 65 79 6d | 61 70 20 64 65 66 69 6e |ess-keym|ap defin|
|00002fb0| 65 2d 6b 65 79 20 22 20 | 22 20 61 72 63 68 69 76 |e-key " |" archiv|
|00002fc0| 65 2d 6e 65 78 74 2d 6c | 69 6e 65 20 22 61 22 20 |e-next-l|ine "a" |
|00002fd0| 61 72 63 68 69 76 65 2d | 61 6c 74 65 72 6e 61 74 |archive-|alternat|
|00002fe0| 65 2d 64 69 73 70 6c 61 | 79 20 22 64 22 20 61 72 |e-displa|y "d" ar|
|00002ff0| 63 68 69 76 65 2d 66 6c | 61 67 2d 64 65 6c 65 74 |chive-fl|ag-delet|
|00003000| 65 64 20 22 04 22 20 22 | 65 22 20 61 72 63 68 69 |ed "." "|e" archi|
|00003010| 76 65 2d 65 78 74 72 61 | 63 74 20 22 66 22 20 22 |ve-extra|ct "f" "|
|00003020| 0d 22 20 22 67 22 20 72 | 65 76 65 72 74 2d 62 75 |." "g" r|evert-bu|
|00003030| 66 66 65 72 20 22 68 22 | 20 64 65 73 63 72 69 62 |ffer "h"| describ|
|00003040| 65 2d 6d 6f 64 65 20 22 | 6d 22 20 61 72 63 68 69 |e-mode "|m" archi|
|00003050| 76 65 2d 6d 61 72 6b 20 | 22 6e 22 20 22 0e 22 20 |ve-mark |"n" "." |
|00003060| 5b 64 6f 77 6e 5d 20 22 | 6f 22 20 61 72 63 68 69 |[down] "|o" archi|
|00003070| 76 65 2d 65 78 74 72 61 | 63 74 2d 6f 74 68 65 72 |ve-extra|ct-other|
|00003080| 2d 77 69 6e 64 6f 77 20 | 22 70 22 20 61 72 63 68 |-window |"p" arch|
|00003090| 69 76 65 2d 70 72 65 76 | 69 6f 75 73 2d 6c 69 6e |ive-prev|ious-lin|
|000030a0| 65 20 22 10 22 20 5b 75 | 70 5d 20 22 72 22 20 61 |e "." [u|p] "r" a|
|000030b0| 72 63 68 69 76 65 2d 72 | 65 6e 61 6d 65 2d 65 6e |rchive-r|ename-en|
|000030c0| 74 72 79 20 22 75 22 20 | 61 72 63 68 69 76 65 2d |try "u" |archive-|
|000030d0| 75 6e 66 6c 61 67 20 22 | ff 22 20 61 72 63 68 69 |unflag "|." archi|
|000030e0| 76 65 2d 75 6e 6d 61 72 | 6b 2d 61 6c 6c 2d 66 69 |ve-unmar|k-all-fi|
|000030f0| 6c 65 73 20 22 76 22 20 | 61 72 63 68 69 76 65 2d |les "v" |archive-|
|00003100| 76 69 65 77 20 22 78 22 | 20 61 72 63 68 69 76 65 |view "x"| archive|
|00003110| 2d 65 78 70 75 6e 67 65 | 20 22 7f 22 20 61 72 63 |-expunge| "." arc|
|00003120| 68 69 76 65 2d 75 6e 66 | 6c 61 67 2d 62 61 63 6b |hive-unf|lag-back|
|00003130| 77 61 72 64 73 20 22 45 | 22 20 22 4d 22 20 61 72 |wards "E|" "M" ar|
|00003140| 63 68 69 76 65 2d 63 68 | 6d 6f 64 2d 65 6e 74 72 |chive-ch|mod-entr|
|00003150| 79 20 22 47 22 20 61 72 | 63 68 69 76 65 2d 63 68 |y "G" ar|chive-ch|
|00003160| 67 72 70 2d 65 6e 74 72 | 79 20 22 4f 22 20 61 72 |grp-entr|y "O" ar|
|00003170| 63 68 69 76 65 2d 63 68 | 6f 77 6e 2d 65 6e 74 72 |chive-ch|own-entr|
|00003180| 79 20 61 72 63 68 69 76 | 65 2d 6c 65 6d 61 63 73 |y archiv|e-lemacs|
|00003190| 20 22 18 75 22 20 61 72 | 63 68 69 76 65 2d 75 6e | ".u" ar|chive-un|
|000031a0| 64 6f 20 22 1f 22 20 73 | 75 62 73 74 69 74 75 74 |do "." s|ubstitut|
|000031b0| 65 2d 6b 65 79 2d 64 65 | 66 69 6e 69 74 69 6f 6e |e-key-de|finition|
|000031c0| 20 75 6e 64 6f 20 67 6c | 6f 62 61 6c 2d 6d 61 70 | undo gl|obal-map|
|000031d0| 20 62 75 74 74 6f 6e 32 | 20 5b 6d 6f 75 73 65 2d | button2| [mouse-|
|000031e0| 32 5d 20 61 72 63 68 69 | 76 65 2d 6d 6f 75 73 65 |2] archi|ve-mouse|
|000031f0| 2d 65 78 74 72 61 63 74 | 20 5b 6d 65 6e 75 2d 62 |-extract| [menu-b|
|00003200| 61 72 20 65 64 69 74 5d | 20 75 6e 64 65 66 69 6e |ar edit]| undefin|
|00003210| 65 64 20 5b 6d 65 6e 75 | 2d 62 61 72 20 69 6d 6d |ed [menu|-bar imm|
|00003220| 65 64 69 61 74 65 5d 20 | 22 49 6d 6d 65 64 69 61 |ediate] |"Immedia|
|00003230| 74 65 22 20 6d 61 6b 65 | 2d 73 70 61 72 73 65 2d |te" make|-sparse-|
|00003240| 6b 65 79 6d 61 70 20 5b | 6d 65 6e 75 2d 62 61 72 |keymap [|menu-bar|
|00003250| 20 69 6d 6d 65 64 69 61 | 74 65 20 61 6c 74 65 72 | immedia|te alter|
|00003260| 6e 61 74 65 5d 20 28 22 | 41 6c 74 65 72 6e 61 74 |nate] ("|Alternat|
|00003270| 65 20 44 69 73 70 6c 61 | 79 22 20 2e 20 61 72 63 |e Displa|y" . arc|
|00003280| 68 69 76 65 2d 61 6c 74 | 65 72 6e 61 74 65 2d 64 |hive-alt|ernate-d|
|00003290| 69 73 70 6c 61 79 29 20 | 6d 65 6e 75 2d 65 6e 61 |isplay) |menu-ena|
|000032a0| 62 6c 65 20 28 62 6f 75 | 6e 64 70 20 28 61 72 63 |ble (bou|ndp (arc|
|000032b0| 68 69 76 65 2d 6e 61 6d | 65 20 22 61 6c 74 65 72 |hive-nam|e "alter|
|000032c0| 6e 61 74 65 2d 64 69 73 | 70 6c 61 79 22 29 29 20 |nate-dis|play")) |
|000032d0| 5b 6d 65 6e 75 2d 62 61 | 72 20 69 6d 6d 65 64 69 |[menu-ba|r immedi|
|000032e0| 61 74 65 20 76 69 65 77 | 5d 20 28 22 56 69 65 77 |ate view|] ("View|
|000032f0| 20 54 68 69 73 20 46 69 | 6c 65 22 20 2e 20 61 72 | This Fi|le" . ar|
|00003300| 63 68 69 76 65 2d 76 69 | 65 77 29 20 5b 6d 65 6e |chive-vi|ew) [men|
|00003310| 75 2d 62 61 72 20 69 6d | 6d 65 64 69 61 74 65 20 |u-bar im|mediate |
|00003320| 64 69 73 70 6c 61 79 5d | 20 28 22 44 69 73 70 6c |display]| ("Displ|
|00003330| 61 79 20 69 6e 20 4f 74 | 68 65 72 20 57 69 6e 64 |ay in Ot|her Wind|
|00003340| 6f 77 22 20 2e 20 61 72 | 63 68 69 76 65 2d 64 69 |ow" . ar|chive-di|
|00003350| 73 70 6c 61 79 2d 6f 74 | 68 65 72 2d 77 69 6e 64 |splay-ot|her-wind|
|00003360| 6f 77 29 20 5b 6d 65 6e | 75 2d 62 61 72 20 69 6d |ow) [men|u-bar im|
|00003370| 6d 65 64 69 61 74 65 20 | 66 69 6e 64 2d 66 69 6c |mediate |find-fil|
|00003380| 65 2d 6f 74 68 65 72 2d | 77 69 6e 64 6f 77 5d 20 |e-other-|window] |
|00003390| 28 22 46 69 6e 64 20 69 | 6e 20 4f 74 68 65 72 20 |("Find i|n Other |
|000033a0| 57 69 6e 64 6f 77 22 20 | 2e 20 61 72 63 68 69 76 |Window" |. archiv|
|000033b0| 65 2d 65 78 74 72 61 63 | 74 2d 6f 74 68 65 72 2d |e-extrac|t-other-|
|000033c0| 77 69 6e 64 6f 77 29 20 | 5b 6d 65 6e 75 2d 62 61 |window) |[menu-ba|
|000033d0| 72 20 69 6d 6d 65 64 69 | 61 74 65 20 66 69 6e 64 |r immedi|ate find|
|000033e0| 2d 66 69 6c 65 5d 20 28 | 22 46 69 6e 64 20 54 68 |-file] (|"Find Th|
|000033f0| 69 73 20 46 69 6c 65 22 | 20 2e 20 61 72 63 68 69 |is File"| . archi|
|00003400| 76 65 2d 65 78 74 72 61 | 63 74 29 20 5b 6d 65 6e |ve-extra|ct) [men|
|00003410| 75 2d 62 61 72 20 6d 61 | 72 6b 5d 20 22 4d 61 72 |u-bar ma|rk] "Mar|
|00003420| 6b 22 20 5b 6d 65 6e 75 | 2d 62 61 72 20 6d 61 72 |k" [menu|-bar mar|
|00003430| 6b 20 75 6e 6d 61 72 6b | 2d 61 6c 6c 5d 20 28 22 |k unmark|-all] ("|
|00003440| 55 6e 6d 61 72 6b 20 41 | 6c 6c 22 20 2e 20 61 72 |Unmark A|ll" . ar|
|00003450| 63 68 69 76 65 2d 75 6e | 6d 61 72 6b 2d 61 6c 6c |chive-un|mark-all|
|00003460| 2d 66 69 6c 65 73 29 20 | 5b 6d 65 6e 75 2d 62 61 |-files) |[menu-ba|
|00003470| 72 20 6d 61 72 6b 20 64 | 65 6c 65 74 69 6f 6e 5d |r mark d|eletion]|
|00003480| 20 28 22 46 6c 61 67 22 | 20 2e 20 61 72 63 68 69 | ("Flag"| . archi|
|00003490| 76 65 2d 66 6c 61 67 2d | 64 65 6c 65 74 65 64 29 |ve-flag-|deleted)|
|000034a0| 20 5b 6d 65 6e 75 2d 62 | 61 72 20 6d 61 72 6b 20 | [menu-b|ar mark |
|000034b0| 75 6e 6d 61 72 6b 5d 20 | 28 22 55 6e 66 6c 61 67 |unmark] |("Unflag|
|000034c0| 22 20 2e 20 61 72 63 68 | 69 76 65 2d 75 6e 66 6c |" . arch|ive-unfl|
|000034d0| 61 67 29 20 5b 6d 65 6e | 75 2d 62 61 72 20 6d 61 |ag) [men|u-bar ma|
|000034e0| 72 6b 20 6d 61 72 6b 5d | 20 28 22 4d 61 72 6b 22 |rk mark]| ("Mark"|
|000034f0| 20 2e 20 61 72 63 68 69 | 76 65 2d 6d 61 72 6b 29 | . archi|ve-mark)|
|00003500| 20 5b 6d 65 6e 75 2d 62 | 61 72 20 6f 70 65 72 61 | [menu-b|ar opera|
|00003510| 74 65 5d 20 22 4f 70 65 | 72 61 74 65 22 20 5b 6d |te] "Ope|rate" [m|
|00003520| 65 6e 75 2d 62 61 72 20 | 6f 70 65 72 61 74 65 20 |enu-bar |operate |
|00003530| 63 68 6f 77 6e 5d 20 28 | 22 43 68 61 6e 67 65 20 |chown] (|"Change |
|00003540| 4f 77 6e 65 72 2e 2e 2e | 22 20 2e 20 61 72 63 68 |Owner...|" . arch|
|00003550| 69 76 65 2d 63 68 6f 77 | 6e 2d 65 6e 74 72 79 29 |ive-chow|n-entry)|
|00003560| 20 28 66 62 6f 75 6e 64 | 70 20 28 61 72 63 68 69 | (fbound|p (archi|
|00003570| 76 65 2d 6e 61 6d 65 20 | 22 63 68 6f 77 6e 2d 65 |ve-name |"chown-e|
|00003580| 6e 74 72 79 22 29 29 20 | 5b 6d 65 6e 75 2d 62 61 |ntry")) |[menu-ba|
|00003590| 72 20 6f 70 65 72 61 74 | 65 20 63 68 67 72 70 5d |r operat|e chgrp]|
|000035a0| 20 28 22 43 68 61 6e 67 | 65 20 47 72 6f 75 70 2e | ("Chang|e Group.|
|000035b0| 2e 2e 22 20 2e 20 61 72 | 63 68 69 76 65 2d 63 68 |.." . ar|chive-ch|
|000035c0| 67 72 70 2d 65 6e 74 72 | 79 29 20 28 66 62 6f 75 |grp-entr|y) (fbou|
|000035d0| 6e 64 70 20 28 61 72 63 | 68 69 76 65 2d 6e 61 6d |ndp (arc|hive-nam|
|000035e0| 65 20 22 63 68 67 72 70 | 2d 65 6e 74 72 79 22 29 |e "chgrp|-entry")|
|000035f0| 29 20 5b 6d 65 6e 75 2d | 62 61 72 20 6f 70 65 72 |) [menu-|bar oper|
|00003600| 61 74 65 20 63 68 6d 6f | 64 5d 20 28 22 43 68 61 |ate chmo|d] ("Cha|
|00003610| 6e 67 65 20 4d 6f 64 65 | 2e 2e 2e 22 20 2e 20 61 |nge Mode|..." . a|
|00003620| 72 63 68 69 76 65 2d 63 | 68 6d 6f 64 2d 65 6e 74 |rchive-c|hmod-ent|
|00003630| 72 79 29 20 28 66 62 6f | 75 6e 64 70 20 28 61 72 |ry) (fbo|undp (ar|
|00003640| 63 68 69 76 65 2d 6e 61 | 6d 65 20 22 63 68 6d 6f |chive-na|me "chmo|
|00003650| 64 2d 65 6e 74 72 79 22 | 29 29 20 5b 6d 65 6e 75 |d-entry"|)) [menu|
|00003660| 2d 62 61 72 20 6f 70 65 | 72 61 74 65 20 72 65 6e |-bar ope|rate ren|
|00003670| 61 6d 65 5d 20 28 22 52 | 65 6e 61 6d 65 20 74 6f |ame] ("R|ename to|
|00003680| 2e 2e 2e 22 20 2e 20 61 | 72 63 68 69 76 65 2d 72 |..." . a|rchive-r|
|00003690| 65 6e 61 6d 65 2d 65 6e | 74 72 79 29 20 28 66 62 |ename-en|try) (fb|
|000036a0| 6f 75 6e 64 70 20 28 61 | 72 63 68 69 76 65 2d 6e |oundp (a|rchive-n|
|000036b0| 61 6d 65 20 22 72 65 6e | 61 6d 65 2d 65 6e 74 72 |ame "ren|ame-entr|
|000036c0| 79 22 29 29 20 5b 6d 65 | 6e 75 2d 62 61 72 20 6f |y")) [me|nu-bar o|
|000036d0| 70 65 72 61 74 65 20 65 | 78 70 75 6e 67 65 5d 20 |perate e|xpunge] |
|000036e0| 28 22 45 78 70 75 6e 67 | 65 20 4d 61 72 6b 65 64 |("Expung|e Marked|
|000036f0| 20 46 69 6c 65 73 22 20 | 2e 20 61 72 63 68 69 76 | Files" |. archiv|
|00003700| 65 2d 65 78 70 75 6e 67 | 65 29 20 28 61 72 63 68 |e-expung|e) (arch|
|00003710| 69 76 65 2d 73 75 62 66 | 69 6c 65 2d 6d 6f 64 65 |ive-subf|ile-mode|
|00003720| 20 22 20 41 72 63 68 69 | 76 65 22 29 20 69 74 65 | " Archi|ve") ite|
|00003730| 6d 31 20 28 61 72 63 68 | 69 76 65 2d 73 75 62 66 |m1 (arch|ive-subf|
|00003740| 69 6c 65 2d 64 6f 73 20 | 22 20 44 6f 73 22 29 20 |ile-dos |" Dos") |
|00003750| 69 74 65 6d 32 20 73 79 | 73 74 65 6d 2d 74 79 70 |item2 sy|stem-typ|
|00003760| 65 20 28 6d 73 2d 64 6f | 73 20 77 69 6e 64 6f 77 |e (ms-do|s window|
|00003770| 73 2d 6e 74 29 20 69 74 | 65 6d 73 20 6d 69 6e 6f |s-nt) it|ems mino|
|00003780| 72 2d 6d 6f 64 65 2d 61 | 6c 69 73 74 20 61 70 70 |r-mode-a|list app|
|00003790| 65 6e 64 5d 20 36 29 0a | 28 64 65 66 61 6c 69 61 |end] 6).|(defalia|
|000037a0| 73 20 27 61 72 63 68 69 | 76 65 2d 66 69 6e 64 2d |s 'archi|ve-find-|
|000037b0| 74 79 70 65 20 23 5b 6e | 69 6c 20 22 7e 88 65 62 |type #[n|il "~.eb|
|000037c0| 88 c0 19 c2 c3 21 83 11 | 00 c4 82 3f 00 c2 c5 21 |.....!..|...?...!|
|000037d0| 83 1b 00 c6 82 3f 00 c2 | c7 21 83 25 00 c8 82 3f |.....?..|.!.%...?|
|000037e0| 00 c2 c9 21 83 3c 00 ca | cb 0e 5c 66 86 34 00 cd |...!.<..|..\f.4..|
|000037f0| 20 5c 22 83 3c 00 ce 82 | 3f 00 cf d0 21 29 87 22 | \".<...|?...!)."|
|00003800| 20 5b 6e 69 6c 20 63 61 | 73 65 2d 66 6f 6c 64 2d | [nil ca|se-fold-|
|00003810| 73 65 61 72 63 68 20 6c | 6f 6f 6b 69 6e 67 2d 61 |search l|ooking-a|
|00003820| 74 20 22 5b 50 5d 4b 03 | 04 22 20 7a 69 70 20 22 |t "[P]K.|." zip "|
|00003830| 2e 2e 2d 6c 5b 68 7a 5d | 5b 30 2d 39 5d 2d 22 20 |..-l[hz]|[0-9]-" |
|00003840| 6c 7a 68 20 22 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |lzh "...|........|
|00003850| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 5b dc 5d a7 c4 fd 22 |........|.[.]..."|
|00003860| 20 7a 6f 6f 20 22 1a 22 | 20 73 74 72 69 6e 67 2d | zoo "."| string-|
|00003870| 6d 61 74 63 68 20 22 5c | 5c 2e 5b 61 41 5d 5b 72 |match "\|\.[aA][r|
|00003880| 52 5d 5b 63 43 5d 24 22 | 20 62 75 66 66 65 72 2d |R][cC]$"| buffer-|
|00003890| 66 69 6c 65 2d 6e 61 6d | 65 20 62 75 66 66 65 72 |file-nam|e buffer|
|000038a0| 2d 6e 61 6d 65 20 61 72 | 63 20 65 72 72 6f 72 20 |-name ar|c error |
|000038b0| 22 42 75 66 66 65 72 20 | 66 6f 72 6d 61 74 20 6e |"Buffer |format n|
|000038c0| 6f 74 20 72 65 63 6f 67 | 6e 69 7a 65 64 2e 22 5d |ot recog|nized."]|
|000038d0| 20 33 5d 29 0a 23 40 32 | 30 35 20 50 61 72 73 65 | 3]).#@2|05 Parse|
|000038e0| 20 74 68 65 20 63 6f 6e | 74 65 6e 74 73 20 6f 66 | the con|tents of|
|000038f0| 20 74 68 65 20 61 72 63 | 68 69 76 65 20 66 69 6c | the arc|hive fil|
|00003900| 65 20 69 6e 20 74 68 65 | 20 63 75 72 72 65 6e 74 |e in the| current|
|00003910| 20 62 75 66 66 65 72 2e | 0a 50 6c 61 63 65 20 61 | buffer.|.Place a|
|00003920| 20 64 69 72 65 64 2d 6c | 69 6b 65 20 6c 69 73 74 | dired-l|ike list|
|00003930| 69 6e 67 20 6f 6e 20 74 | 68 65 20 66 72 6f 6e 74 |ing on t|he front|
|00003940| 3b 0a 74 68 65 6e 20 6e | 61 72 72 6f 77 20 74 6f |;.then n|arrow to|
|00003950| 20 69 74 2c 20 73 6f 20 | 74 68 61 74 20 6f 6e 6c | it, so |that onl|
|00003960| 79 20 74 68 61 74 20 6c | 69 73 74 69 6e 67 0a 69 |y that l|isting.i|
|00003970| 73 20 76 69 73 69 62 6c | 65 20 28 61 6e 64 20 74 |s visibl|e (and t|
|00003980| 68 65 20 72 65 61 6c 20 | 64 61 74 61 20 6f 66 20 |he real |data of |
|00003990| 74 68 65 20 62 75 66 66 | 65 72 20 69 73 20 68 69 |the buff|er is hi|
|000039a0| 64 64 65 6e 29 2e 1f 0a | 28 64 65 66 61 6c 69 61 |dden)...|(defalia|
|000039b0| 73 20 27 61 72 63 68 69 | 76 65 2d 73 75 6d 6d 61 |s 'archi|ve-summa|
|000039c0| 72 69 7a 65 20 23 5b 6e | 69 6c 20 22 7e 88 c0 19 |rize #[n|il "~...|
|000039d0| c2 c3 21 88 c4 70 21 88 | c5 1e 06 c7 c8 c9 0e 5c |..!..p!.|.......\|
|000039e0| 6e 21 cb 0e 06 52 21 29 | 20 16 5c 66 c2 cd 21 88 |n!...R!)| .\f..!.|
|000039f0| ce 20 16 0f 65 60 7d 88 | d0 c0 21 88 d1 20 88 29 |. ..e`}.|..!.. .)|
|00003a00| 0e 12 62 88 d3 d4 21 87 | 22 20 5b 6e 69 6c 20 62 |..b...!.|" [nil b|
|00003a10| 75 66 66 65 72 2d 72 65 | 61 64 2d 6f 6e 6c 79 20 |uffer-re|ad-only |
|00003a20| 6d 65 73 73 61 67 65 20 | 22 50 61 72 73 69 6e 67 |message |"Parsing|
|00003a30| 20 61 72 63 68 69 76 65 | 20 66 69 6c 65 2e 2e 2e | archive| file...|
|00003a40| 22 20 62 75 66 66 65 72 | 2d 64 69 73 61 62 6c 65 |" buffer|-disable|
|00003a50| 2d 75 6e 64 6f 20 22 73 | 75 6d 6d 61 72 69 7a 65 |-undo "s|ummarize|
|00003a60| 22 20 73 75 66 66 69 78 | 20 69 6e 74 65 72 6e 20 |" suffix| intern |
|00003a70| 22 61 72 63 68 69 76 65 | 2d 22 20 73 79 6d 62 6f |"archive|-" symbo|
|00003a80| 6c 2d 6e 61 6d 65 20 61 | 72 63 68 69 76 65 2d 73 |l-name a|rchive-s|
|00003a90| 75 62 74 79 70 65 20 22 | 2d 22 20 61 72 63 68 69 |ubtype "|-" archi|
|00003aa0| 76 65 2d 66 69 6c 65 73 | 20 22 50 61 72 73 69 6e |ve-files| "Parsin|
|00003ab0| 67 20 61 72 63 68 69 76 | 65 20 66 69 6c 65 2e 2e |g archiv|e file..|
|00003ac0| 2e 64 6f 6e 65 2e 22 20 | 70 6f 69 6e 74 2d 6d 61 |.done." |point-ma|
|00003ad0| 72 6b 65 72 20 61 72 63 | 68 69 76 65 2d 70 72 6f |rker arc|hive-pro|
|00003ae0| 70 65 72 2d 66 69 6c 65 | 2d 73 74 61 72 74 20 73 |per-file|-start s|
|00003af0| 65 74 2d 62 75 66 66 65 | 72 2d 6d 6f 64 69 66 69 |et-buffe|r-modifi|
|00003b00| 65 64 2d 70 20 62 75 66 | 66 65 72 2d 65 6e 61 62 |ed-p buf|fer-enab|
|00003b10| 6c 65 2d 75 6e 64 6f 20 | 61 72 63 68 69 76 65 2d |le-undo |archive-|
|00003b20| 66 69 6c 65 2d 6c 69 73 | 74 2d 73 74 61 72 74 20 |file-lis|t-start |
|00003b30| 61 72 63 68 69 76 65 2d | 6e 65 78 74 2d 6c 69 6e |archive-|next-lin|
|00003b40| 65 20 30 5d 20 35 20 28 | 23 24 20 2e 20 31 34 35 |e 0] 5 (|#$ . 145|
|00003b50| 35 35 29 5d 29 0a 23 40 | 34 36 20 52 65 63 72 65 |55)]).#@|46 Recre|
|00003b60| 61 74 65 20 74 68 65 20 | 63 6f 6e 74 65 6e 74 73 |ate the |contents|
|00003b70| 20 6c 69 73 74 69 6e 67 | 20 6f 66 20 61 6e 20 61 | listing| of an a|
|00003b80| 72 63 68 69 76 65 2e 1f | 0a 28 64 65 66 61 6c 69 |rchive..|.(defali|
|00003b90| 61 73 20 27 61 72 63 68 | 69 76 65 2d 72 65 73 75 |as 'arch|ive-resu|
|00003ba0| 6d 6d 61 72 69 7a 65 20 | 23 5b 6e 69 6c 20 22 c0 |mmarize |#[nil ".|
|00003bb0| 20 c1 20 c2 1b 1c 1d 7e | 88 65 0e 06 7c 88 c7 20 | . ....~|.e..|.. |
|00003bc0| 88 c8 0d 21 88 0e 09 62 | 88 ca 5c 66 21 2b 87 22 |...!...b|..\f!+."|
|00003bd0| 20 5b 62 75 66 66 65 72 | 2d 6d 6f 64 69 66 69 65 | [buffer|-modifie|
|00003be0| 64 2d 70 20 61 72 63 68 | 69 76 65 2d 67 65 74 2d |d-p arch|ive-get-|
|00003bf0| 6c 69 6e 65 6e 6f 20 6e | 69 6c 20 62 75 66 66 65 |lineno n|il buffe|
|00003c00| 72 2d 72 65 61 64 2d 6f | 6e 6c 79 20 6e 6f 20 6d |r-read-o|nly no m|
|00003c10| 6f 64 69 66 69 65 64 20 | 61 72 63 68 69 76 65 2d |odified |archive-|
|00003c20| 70 72 6f 70 65 72 2d 66 | 69 6c 65 2d 73 74 61 72 |proper-f|ile-star|
|00003c30| 74 20 61 72 63 68 69 76 | 65 2d 73 75 6d 6d 61 72 |t archiv|e-summar|
|00003c40| 69 7a 65 20 73 65 74 2d | 62 75 66 66 65 72 2d 6d |ize set-|buffer-m|
|00003c50| 6f 64 69 66 69 65 64 2d | 70 20 61 72 63 68 69 76 |odified-|p archiv|
|00003c60| 65 2d 66 69 6c 65 2d 6c | 69 73 74 2d 73 74 61 72 |e-file-l|ist-star|
|00003c70| 74 20 61 72 63 68 69 76 | 65 2d 6e 65 78 74 2d 6c |t archiv|e-next-l|
|00003c80| 69 6e 65 5d 20 33 20 28 | 23 24 20 2e 20 31 35 31 |ine] 3 (|#$ . 151|
|00003c90| 39 35 29 5d 29 0a 23 40 | 37 34 20 49 6e 73 65 72 |95)]).#@|74 Inser|
|00003ca0| 74 20 61 20 64 65 73 63 | 72 69 70 74 69 6f 6e 20 |t a desc|ription |
|00003cb0| 6f 66 20 61 20 6c 69 73 | 74 20 6f 66 20 66 69 6c |of a lis|t of fil|
|00003cc0| 65 73 20 61 6e 6e 6f 74 | 61 74 65 64 20 77 69 74 |es annot|ated wit|
|00003cd0| 68 20 70 72 6f 70 65 72 | 20 6d 6f 75 73 65 20 66 |h proper| mouse f|
|00003ce0| 61 63 65 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ace..(de|falias '|
|00003cf0| 61 72 63 68 69 76 65 2d | 73 75 6d 6d 61 72 69 7a |archive-|summariz|
|00003d00| 65 2d 66 69 6c 65 73 20 | 23 5b 28 66 69 6c 65 73 |e-files |#[(files|
|00003d10| 29 20 22 c0 20 11 5c 6e | 83 0e 00 5c 6e 40 c3 48 |) ". .\n|...\n@.H|
|00003d20| 82 0f 00 c4 15 c6 c7 c8 | c9 5c 6e 5c 22 5c 22 63 |........|.\n\"\"c|
|00003d30| 88 c0 20 89 16 5c 6e 87 | 22 20 5b 70 6f 69 6e 74 |.. ..\n.|" [point|
|00003d40| 2d 6d 61 72 6b 65 72 20 | 61 72 63 68 69 76 65 2d |-marker |archive-|
|00003d50| 66 69 6c 65 2d 6c 69 73 | 74 2d 73 74 61 72 74 20 |file-lis|t-start |
|00003d60| 66 69 6c 65 73 20 31 20 | 30 20 61 72 63 68 69 76 |files 1 |0 archiv|
|00003d70| 65 2d 66 69 6c 65 2d 6e | 61 6d 65 2d 69 6e 64 65 |e-file-n|ame-inde|
|00003d80| 6e 74 20 61 70 70 6c 79 | 20 63 6f 6e 63 61 74 20 |nt apply| concat |
|00003d90| 6d 61 70 63 61 72 20 23 | 5b 28 66 69 6c 29 20 22 |mapcar #|[(fil) "|
|00003da0| 08 c1 48 c2 50 1b 5c 66 | 84 16 00 c5 08 c6 48 08 |..H.P.\f|......H.|
|00003db0| c7 48 c8 c9 0b 25 88 0b | 29 87 22 20 5b 66 69 6c |.H...%..|)." [fil|
|00003dc0| 20 30 20 22 5c 6e 22 20 | 74 65 78 74 20 61 72 63 | 0 "\n" |text arc|
|00003dd0| 68 69 76 65 2d 6c 65 6d | 61 63 73 20 70 75 74 2d |hive-lem|acs put-|
|00003de0| 74 65 78 74 2d 70 72 6f | 70 65 72 74 79 20 31 20 |text-pro|perty 1 |
|00003df0| 32 20 6d 6f 75 73 65 2d | 66 61 63 65 20 68 69 67 |2 mouse-|face hig|
|00003e00| 68 6c 69 67 68 74 5d 20 | 36 5d 20 61 72 63 68 69 |hlight] |6] archi|
|00003e10| 76 65 2d 66 69 6c 65 2d | 6c 69 73 74 2d 65 6e 64 |ve-file-|list-end|
|00003e20| 5d 20 35 20 28 23 24 20 | 2e 20 31 35 35 31 35 29 |] 5 (#$ |. 15515)|
|00003e30| 5d 29 0a 23 40 31 36 37 | 20 54 6f 67 67 6c 65 20 |]).#@167| Toggle |
|00003e40| 61 6c 74 65 72 6e 61 74 | 69 76 65 20 64 69 73 70 |alternat|ive disp|
|00003e50| 6c 61 79 2e 0a 54 6f 20 | 61 76 6f 69 64 20 76 65 |lay..To |avoid ve|
|00003e60| 72 79 20 6c 6f 6e 67 20 | 6c 69 6e 65 73 20 73 6f |ry long |lines so|
|00003e70| 6d 65 20 61 72 63 68 69 | 76 65 20 6d 6f 64 65 20 |me archi|ve mode |
|00003e80| 64 6f 6e 27 74 20 73 68 | 6f 77 20 61 6c 6c 20 69 |don't sh|ow all i|
|00003e90| 6e 66 6f 72 6d 61 74 69 | 6f 6e 2e 0a 54 68 69 73 |nformati|on..This|
|00003ea0| 20 66 75 6e 63 74 69 6f | 6e 20 63 68 61 6e 67 65 | functio|n change|
|00003eb0| 73 20 74 68 65 20 73 65 | 74 20 6f 66 20 69 6e 66 |s the se|t of inf|
|00003ec0| 6f 72 6d 61 74 69 6f 6e | 20 73 68 6f 77 6e 20 66 |ormation| shown f|
|00003ed0| 6f 72 20 65 61 63 68 20 | 66 69 6c 65 73 2e 1f 0a |or each |files...|
|00003ee0| 28 64 65 66 61 6c 69 61 | 73 20 27 61 72 63 68 69 |(defalia|s 'archi|
|00003ef0| 76 65 2d 61 6c 74 65 72 | 6e 61 74 65 2d 64 69 73 |ve-alter|nate-dis|
|00003f00| 70 6c 61 79 20 23 5b 6e | 69 6c 20 22 08 3f 10 c1 |play #[n|il ".?..|
|00003f10| 20 87 22 20 5b 61 72 63 | 68 69 76 65 2d 61 6c 74 | ." [arc|hive-alt|
|00003f20| 65 72 6e 61 74 65 2d 64 | 69 73 70 6c 61 79 20 61 |ernate-d|isplay a|
|00003f30| 72 63 68 69 76 65 2d 72 | 65 73 75 6d 6d 61 72 69 |rchive-r|esummari|
|00003f40| 7a 65 5d 20 31 20 28 23 | 24 20 2e 20 31 35 39 32 |ze] 1 (#|$ . 1592|
|00003f50| 39 29 20 6e 69 6c 5d 29 | 0a 28 64 65 66 61 6c 69 |9) nil])|.(defali|
|00003f60| 61 73 20 27 61 72 63 68 | 69 76 65 2d 6d 61 79 62 |as 'arch|ive-mayb|
|00003f70| 65 2d 63 6f 70 79 20 23 | 5b 28 61 72 63 68 69 76 |e-copy #|[(archiv|
|00003f80| 65 29 20 22 08 83 24 00 | 64 19 c2 c3 5c 66 21 0d |e) "..$.|d...\f!.|
|00003f90| 5c 22 16 06 c7 0d c8 5c | 22 88 8c 7e 88 c9 09 64 |\".....\|"..~...d|
|00003fa0| 0e 06 ca cb 25 88 29 0e | 06 29 87 cc 20 83 2c 00 |....%.).|.).. .,.|
|00003fb0| cd 20 88 5c 66 87 22 20 | 5b 61 72 63 68 69 76 65 |. .\f." |[archive|
|00003fc0| 2d 72 65 6d 6f 74 65 20 | 73 74 61 72 74 20 65 78 |-remote |start ex|
|00003fd0| 70 61 6e 64 2d 66 69 6c | 65 2d 6e 61 6d 65 20 66 |pand-fil|e-name f|
|00003fe0| 69 6c 65 2d 6e 61 6d 65 | 2d 6e 6f 6e 64 69 72 65 |ile-name|-nondire|
|00003ff0| 63 74 6f 72 79 20 61 72 | 63 68 69 76 65 20 61 72 |ctory ar|chive ar|
|00004000| 63 68 69 76 65 2d 74 6d | 70 64 69 72 20 61 72 63 |chive-tm|pdir arc|
|00004010| 68 69 76 65 2d 6c 6f 63 | 61 6c 2d 6e 61 6d 65 20 |hive-loc|al-name |
|00004020| 6d 61 6b 65 2d 64 69 72 | 65 63 74 6f 72 79 20 74 |make-dir|ectory t|
|00004030| 20 77 72 69 74 65 2d 72 | 65 67 69 6f 6e 20 6e 69 | write-r|egion ni|
|00004040| 6c 20 6e 6f 6d 65 73 73 | 61 67 65 20 62 75 66 66 |l nomess|age buff|
|00004050| 65 72 2d 6d 6f 64 69 66 | 69 65 64 2d 70 20 73 61 |er-modif|ied-p sa|
|00004060| 76 65 2d 62 75 66 66 65 | 72 5d 20 36 5d 29 0a 28 |ve-buffe|r] 6]).(|
|00004070| 64 65 66 61 6c 69 61 73 | 20 27 61 72 63 68 69 76 |defalias| 'archiv|
|00004080| 65 2d 6d 61 79 62 65 2d | 75 70 64 61 74 65 20 23 |e-maybe-|update #|
|00004090| 5b 28 75 6e 63 68 61 6e | 67 65 64 29 20 22 08 85 |[(unchan|ged) "..|
|000040a0| 35 00 09 c2 20 c3 1c 1d | 1e 06 0e 07 84 1d 00 c8 |5... ...|........|
|000040b0| 20 88 c9 0e 06 21 88 ca | cb 21 88 cc 0e 06 21 88 | ....!..|.!....!.|
|000040c0| 0e 07 84 2b 00 cd ce 21 | 88 cf 0d 86 33 00 0e 07 |...+...!|....3...|
|000040d0| 3f 21 2b 87 22 20 5b 61 | 72 63 68 69 76 65 2d 72 |?!+." [a|rchive-r|
|000040e0| 65 6d 6f 74 65 20 61 72 | 63 68 69 76 65 2d 6c 6f |emote ar|chive-lo|
|000040f0| 63 61 6c 2d 6e 61 6d 65 | 20 62 75 66 66 65 72 2d |cal-name| buffer-|
|00004100| 6d 6f 64 69 66 69 65 64 | 2d 70 20 6e 69 6c 20 62 |modified|-p nil b|
|00004110| 75 66 66 65 72 2d 72 65 | 61 64 2d 6f 6e 6c 79 20 |uffer-re|ad-only |
|00004120| 6d 6f 64 69 66 69 65 64 | 20 6e 61 6d 65 20 75 6e |modified| name un|
|00004130| 63 68 61 6e 67 65 64 20 | 65 72 61 73 65 2d 62 75 |changed |erase-bu|
|00004140| 66 66 65 72 20 69 6e 73 | 65 72 74 2d 66 69 6c 65 |ffer ins|ert-file|
|00004150| 2d 63 6f 6e 74 65 6e 74 | 73 20 61 72 63 68 69 76 |-content|s archiv|
|00004160| 65 2d 6d 6f 64 65 20 74 | 20 61 72 63 68 69 76 65 |e-mode t| archive|
|00004170| 2d 64 65 6c 65 74 65 2d | 6c 6f 63 61 6c 20 6d 65 |-delete-|local me|
|00004180| 73 73 61 67 65 20 22 41 | 72 63 68 69 76 65 20 66 |ssage "A|rchive f|
|00004190| 69 6c 65 20 6d 75 73 74 | 20 62 65 20 73 61 76 65 |ile must| be save|
|000041a0| 64 20 66 6f 72 20 63 68 | 61 6e 67 65 73 20 74 6f |d for ch|anges to|
|000041b0| 20 74 61 6b 65 20 65 66 | 66 65 63 74 22 20 73 65 | take ef|fect" se|
|000041c0| 74 2d 62 75 66 66 65 72 | 2d 6d 6f 64 69 66 69 65 |t-buffer|-modifie|
|000041d0| 64 2d 70 5d 20 33 5d 29 | 0a 23 40 37 32 20 44 65 |d-p] 3])|.#@72 De|
|000041e0| 6c 65 74 65 20 66 69 6c | 65 20 4e 41 4d 45 20 61 |lete fil|e NAME a|
|000041f0| 6e 64 20 69 74 73 20 70 | 61 72 65 6e 74 73 20 75 |nd its p|arents u|
|00004200| 70 20 74 6f 20 61 6e 64 | 20 69 6e 63 6c 75 64 69 |p to and| includi|
|00004210| 6e 67 20 60 61 72 63 68 | 69 76 65 2d 74 6d 70 64 |ng `arch|ive-tmpd|
|00004220| 69 72 27 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ir'...(d|efalias |
|00004230| 27 61 72 63 68 69 76 65 | 2d 64 65 6c 65 74 65 2d |'archive|-delete-|
|00004240| 6c 6f 63 61 6c 20 23 5b | 28 6e 61 6d 65 29 20 22 |local #[|(name) "|
|00004250| c0 c1 c2 0b 21 21 1c 1d | c6 c7 c8 8f 88 0d 85 2c |....!!..|.......,|
|00004260| 00 c1 c9 0e 5c 6e 21 21 | 16 5c 6e c6 cb cc 8f 88 |....\n!!|.\n.....|
|00004270| 0e 5c 6e 5c 66 98 83 0d | 00 c6 89 15 84 11 00 c6 |.\n\f...|........|
|00004280| 2a 87 22 20 5b 74 20 64 | 69 72 65 63 74 6f 72 79 |*." [t d|irectory|
|00004290| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 66 69 6c 65 2d |-file-na|me file-|
|000042a0| 6e 61 6d 65 2d 61 73 2d | 64 69 72 65 63 74 6f 72 |name-as-|director|
|000042b0| 79 20 61 72 63 68 69 76 | 65 2d 74 6d 70 64 69 72 |y archiv|e-tmpdir|
|000042c0| 20 74 6f 70 20 61 67 61 | 69 6e 20 6e 69 6c 20 28 | top aga|in nil (|
|000042d0| 64 65 6c 65 74 65 2d 66 | 69 6c 65 20 6e 61 6d 65 |delete-f|ile name|
|000042e0| 29 20 28 28 65 72 72 6f | 72 29 29 20 66 69 6c 65 |) ((erro|r)) file|
|000042f0| 2d 6e 61 6d 65 2d 64 69 | 72 65 63 74 6f 72 79 20 |-name-di|rectory |
|00004300| 6e 61 6d 65 20 28 64 65 | 6c 65 74 65 2d 64 69 72 |name (de|lete-dir|
|00004310| 65 63 74 6f 72 79 20 6e | 61 6d 65 29 20 28 28 65 |ectory n|ame) ((e|
|00004320| 72 72 6f 72 29 29 5d 20 | 35 20 28 23 24 20 2e 20 |rror))] |5 (#$ . |
|00004330| 31 36 38 36 32 29 5d 29 | 0a 23 40 34 31 20 45 78 |16862)])|.#@41 Ex|
|00004340| 74 72 61 63 74 20 61 20 | 66 69 6c 65 20 77 68 6f |tract a |file who|
|00004350| 73 65 20 6e 61 6d 65 20 | 79 6f 75 20 63 6c 69 63 |se name |you clic|
|00004360| 6b 20 6f 6e 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |k on...(|defalias|
|00004370| 20 27 61 72 63 68 69 76 | 65 2d 6d 6f 75 73 65 2d | 'archiv|e-mouse-|
|00004380| 65 78 74 72 61 63 74 20 | 23 5b 28 65 76 65 6e 74 |extract |#[(event|
|00004390| 29 20 22 c0 09 21 88 c2 | 8a c3 20 88 70 29 21 87 |) "..!..|.. .p)!.|
|000043a0| 22 20 5b 6d 6f 75 73 65 | 2d 73 65 74 2d 70 6f 69 |" [mouse|-set-poi|
|000043b0| 6e 74 20 65 76 65 6e 74 | 20 73 77 69 74 63 68 2d |nt event| switch-|
|000043c0| 74 6f 2d 62 75 66 66 65 | 72 20 61 72 63 68 69 76 |to-buffe|r archiv|
|000043d0| 65 2d 65 78 74 72 61 63 | 74 5d 20 32 20 28 23 24 |e-extrac|t] 2 (#$|
|000043e0| 20 2e 20 31 37 32 31 34 | 29 20 22 65 22 5d 29 0a | . 17214|) "e"]).|
|000043f0| 23 40 37 33 20 49 6e 20 | 61 72 63 68 69 76 65 20 |#@73 In |archive |
|00004400| 6d 6f 64 65 2c 20 65 78 | 74 72 61 63 74 20 74 68 |mode, ex|tract th|
|00004410| 69 73 20 65 6e 74 72 79 | 20 6f 66 20 74 68 65 20 |is entry| of the |
|00004420| 61 72 63 68 69 76 65 20 | 69 6e 74 6f 20 69 74 73 |archive |into its|
|00004430| 20 6f 77 6e 20 62 75 66 | 66 65 72 2e 1f 0a 28 64 | own buf|fer...(d|
|00004440| 65 66 61 6c 69 61 73 20 | 27 61 72 63 68 69 76 65 |efalias |'archive|
|00004450| 2d 65 78 74 72 61 63 74 | 20 23 5b 28 26 6f 70 74 |-extract| #[(&opt|
|00004460| 69 6f 6e 61 6c 20 6f 74 | 68 65 72 2d 77 69 6e 64 |ional ot|her-wind|
|00004470| 6f 77 2d 70 29 20 22 08 | c1 3d 1a c3 20 89 1c c5 |ow-p) ".|.=.. ...|
|00004480| 48 1e 06 5c 66 c7 48 1e | 08 70 1e 09 0e 5c 6e 1e |H..\f.H.|.p...\n.|
|00004490| 0b cc 20 1e 0d ce 0e 0d | 21 1e 0f ce 0e 08 21 d0 |.. .....|!.....!.|
|000044a0| 0e 0f d1 52 1e 12 d3 1e | 14 d5 d6 d7 0e 18 21 d9 |...R....|......!.|
|000044b0| 0e 14 52 21 29 1e 1a 0e | 1b 86 44 00 5c 6e 1e 1c |..R!)...|..D.\n..|
|000044c0| dd 0e 12 21 1e 1e df 1e | 20 0e 1e 84 e9 00 e1 0e |...!....| .......|
|000044d0| 0d 21 16 0d e2 0e 12 21 | 16 1e e3 16 20 8a 0e 1e |.!.....!|.... ...|
|000044e0| 71 88 e4 0e 0f e5 0e 08 | 51 21 16 5c 66 e6 0e 5c |q.......|Q!.\f..\|
|000044f0| 66 21 16 27 0e 0b 16 5c | 6e e8 e9 21 88 0e 09 16 |f!.'...\|n..!....|
|00004500| 29 e8 ea 21 88 eb ea ec | 5c 22 88 5c 66 16 2d df |)..!....|\".\f.-.|
|00004510| 16 2e e3 16 2f f0 0e 1a | 21 83 a8 00 0e 1a 0e 0d |..../...|!.......|
|00004520| 0e 06 5c 22 88 82 b2 00 | f1 0e 0d 0e 06 0e 1a 4a |..\"....|.......J|
|00004530| 23 88 0e 32 83 ba 00 f3 | 20 88 65 62 88 f4 0e 12 |#..2....| .eb....|
|00004540| 21 88 0e 1c 16 35 df 16 | 36 f7 df 21 88 f8 20 16 |!....5..|6..!.. .|
|00004550| 39 fa 20 88 0e 3b fc 3d | 83 de 00 e3 16 3d fe ff |9. ..;.=|.....=..|
|00004560| 21 88 29 81 40 00 e3 21 | 88 5c 6e 83 02 01 81 41 |!.).@..!|.\n....A|
|00004570| 00 0e 1e 21 88 0e 20 85 | 26 01 81 42 00 89 16 43 |...!.. .|&..B...C|
|00004580| 82 26 01 08 81 44 00 3d | 83 13 01 81 45 00 0e 1e |.&...D.=|....E...|
|00004590| 21 82 26 01 08 83 20 01 | 81 46 00 0e 1e 21 82 26 |!.&... .|.F...!.&|
|000045a0| 01 81 47 00 0e 1e 21 2e | 0d 87 22 20 5b 6f 74 68 |..G...!.|.." [oth|
|000045b0| 65 72 2d 77 69 6e 64 6f | 77 2d 70 20 76 69 65 77 |er-windo|w-p view|
|000045c0| 20 76 69 65 77 2d 70 20 | 61 72 63 68 69 76 65 2d | view-p |archive-|
|000045d0| 67 65 74 2d 64 65 73 63 | 72 20 64 65 73 63 72 20 |get-desc|r descr |
|000045e0| 30 20 65 6e 61 6d 65 20 | 31 20 69 6e 61 6d 65 20 |0 ename |1 iname |
|000045f0| 61 72 63 68 69 76 65 2d | 62 75 66 66 65 72 20 64 |archive-|buffer d|
|00004600| 65 66 61 75 6c 74 2d 64 | 69 72 65 63 74 6f 72 79 |efault-d|irectory|
|00004610| 20 61 72 63 64 69 72 20 | 62 75 66 66 65 72 2d 66 | arcdir |buffer-f|
|00004620| 69 6c 65 2d 6e 61 6d 65 | 20 61 72 63 68 69 76 65 |ile-name| archive|
|00004630| 20 66 69 6c 65 2d 6e 61 | 6d 65 2d 6e 6f 6e 64 69 | file-na|me-nondi|
|00004640| 72 65 63 74 6f 72 79 20 | 61 72 63 6e 61 6d 65 20 |rectory |arcname |
|00004650| 22 20 28 22 20 22 29 22 | 20 62 75 66 6e 61 6d 65 |" (" ")"| bufname|
|00004660| 20 22 65 78 74 72 61 63 | 74 22 20 73 75 66 66 69 | "extrac|t" suffi|
|00004670| 78 20 69 6e 74 65 72 6e | 20 22 61 72 63 68 69 76 |x intern| "archiv|
|00004680| 65 2d 22 20 73 79 6d 62 | 6f 6c 2d 6e 61 6d 65 20 |e-" symb|ol-name |
|00004690| 61 72 63 68 69 76 65 2d | 73 75 62 74 79 70 65 20 |archive-|subtype |
|000046a0| 22 2d 22 20 65 78 74 72 | 61 63 74 6f 72 20 61 72 |"-" extr|actor ar|
|000046b0| 63 68 69 76 65 2d 72 65 | 61 64 2d 6f 6e 6c 79 20 |chive-re|ad-only |
|000046c0| 72 65 61 64 2d 6f 6e 6c | 79 2d 70 20 67 65 74 2d |read-onl|y-p get-|
|000046d0| 62 75 66 66 65 72 20 62 | 75 66 66 65 72 20 6e 69 |buffer b|uffer ni|
|000046e0| 6c 20 6a 75 73 74 2d 63 | 72 65 61 74 65 64 20 61 |l just-c|reated a|
|000046f0| 72 63 68 69 76 65 2d 6d | 61 79 62 65 2d 63 6f 70 |rchive-m|aybe-cop|
|00004700| 79 20 67 65 74 2d 62 75 | 66 66 65 72 2d 63 72 65 |y get-bu|ffer-cre|
|00004710| 61 74 65 20 74 20 65 78 | 70 61 6e 64 2d 66 69 6c |ate t ex|pand-fil|
|00004720| 65 2d 6e 61 6d 65 20 22 | 3a 22 20 61 62 62 72 65 |e-name "|:" abbre|
|00004730| 76 69 61 74 65 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |viate-fi|le-name |
|00004740| 62 75 66 66 65 72 2d 66 | 69 6c 65 2d 74 72 75 65 |buffer-f|ile-true|
|00004750| 6e 61 6d 65 20 6d 61 6b | 65 2d 6c 6f 63 61 6c 2d |name mak|e-local-|
|00004760| 76 61 72 69 61 62 6c 65 | 20 61 72 63 68 69 76 65 |variable| archive|
|00004770| 2d 73 75 70 65 72 69 6f | 72 2d 62 75 66 66 65 72 |-superio|r-buffer|
|00004780| 20 6c 6f 63 61 6c 2d 77 | 72 69 74 65 2d 66 69 6c | local-w|rite-fil|
|00004790| 65 2d 68 6f 6f 6b 73 20 | 61 64 64 2d 68 6f 6f 6b |e-hooks |add-hook|
|000047a0| 20 61 72 63 68 69 76 65 | 2d 77 72 69 74 65 2d 66 | archive|-write-f|
|000047b0| 69 6c 65 2d 6d 65 6d 62 | 65 72 20 61 72 63 68 69 |ile-memb|er archi|
|000047c0| 76 65 2d 73 75 62 66 69 | 6c 65 2d 6d 6f 64 65 20 |ve-subfi|le-mode |
|000047d0| 61 72 63 68 69 76 65 2d | 73 75 62 66 69 6c 65 2d |archive-|subfile-|
|000047e0| 64 6f 73 20 62 75 66 66 | 65 72 2d 66 69 6c 65 2d |dos buff|er-file-|
|000047f0| 74 79 70 65 20 66 62 6f | 75 6e 64 70 20 61 72 63 |type fbo|undp arc|
|00004800| 68 69 76 65 2d 2a 2d 65 | 78 74 72 61 63 74 20 61 |hive-*-e|xtract a|
|00004810| 72 63 68 69 76 65 2d 64 | 6f 73 2d 6d 65 6d 62 65 |rchive-d|os-membe|
|00004820| 72 73 20 61 72 63 68 69 | 76 65 2d 63 68 65 63 6b |rs archi|ve-check|
|00004830| 2d 64 6f 73 20 72 65 6e | 61 6d 65 2d 62 75 66 66 |-dos ren|ame-buff|
|00004840| 65 72 20 62 75 66 66 65 | 72 2d 72 65 61 64 2d 6f |er buffe|r-read-o|
|00004850| 6e 6c 79 20 62 75 66 66 | 65 72 2d 75 6e 64 6f 2d |nly buff|er-undo-|
|00004860| 6c 69 73 74 20 73 65 74 | 2d 62 75 66 66 65 72 2d |list set|-buffer-|
|00004870| 6d 6f 64 69 66 69 65 64 | 2d 70 20 62 75 66 66 65 |modified|-p buffe|
|00004880| 72 2d 73 69 7a 65 20 62 | 75 66 66 65 72 2d 73 61 |r-size b|uffer-sa|
|00004890| 76 65 64 2d 73 69 7a 65 | 20 6e 6f 72 6d 61 6c 2d |ved-size| normal-|
|000048a0| 6d 6f 64 65 20 6d 61 6a | 6f 72 2d 6d 6f 64 65 20 |mode maj|or-mode |
|000048b0| 61 72 63 68 69 76 65 2d | 6d 6f 64 65 20 61 72 63 |archive-|mode arc|
|000048c0| 68 69 76 65 2d 72 65 6d | 6f 74 65 20 72 75 6e 2d |hive-rem|ote run-|
|000048d0| 68 6f 6f 6b 73 20 61 72 | 63 68 69 76 65 2d 65 78 |hooks ar|chive-ex|
|000048e0| 74 72 61 63 74 2d 68 6f | 6f 6b 73 20 61 72 63 68 |tract-ho|oks arch|
|000048f0| 69 76 65 2d 6d 61 79 62 | 65 2d 75 70 64 61 74 65 |ive-mayb|e-update|
|00004900| 20 76 69 65 77 2d 62 75 | 66 66 65 72 20 6b 69 6c | view-bu|ffer kil|
|00004910| 6c 2d 62 75 66 66 65 72 | 20 76 69 65 77 2d 65 78 |l-buffer| view-ex|
|00004920| 69 74 2d 61 63 74 69 6f | 6e 20 64 69 73 70 6c 61 |it-actio|n displa|
|00004930| 79 20 64 69 73 70 6c 61 | 79 2d 62 75 66 66 65 72 |y displa|y-buffer|
|00004940| 20 73 77 69 74 63 68 2d | 74 6f 2d 62 75 66 66 65 | switch-|to-buffe|
|00004950| 72 2d 6f 74 68 65 72 2d | 77 69 6e 64 6f 77 20 73 |r-other-|window s|
|00004960| 77 69 74 63 68 2d 74 6f | 2d 62 75 66 66 65 72 5d |witch-to|-buffer]|
|00004970| 20 36 20 28 23 24 20 2e | 20 31 37 33 39 37 29 20 | 6 (#$ .| 17397) |
|00004980| 6e 69 6c 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |nil]).(d|efalias |
|00004990| 27 61 72 63 68 69 76 65 | 2d 2a 2d 65 78 74 72 61 |'archive|-*-extra|
|000049a0| 63 74 20 23 5b 28 61 72 | 63 68 69 76 65 20 6e 61 |ct #[(ar|chive na|
|000049b0| 6d 65 20 63 6f 6d 6d 61 | 6e 64 29 20 22 c0 09 21 |me comma|nd) "..!|
|000049c0| 1a c3 c4 0d 21 5c 6e 5c | 22 1e 06 c7 c8 5c 6e 21 |....!\n\|"....\n!|
|000049d0| c9 5c 22 88 ca cb 0e 5c | 66 40 cd 89 89 ce 0e 5c |.\"....\|f@.....\|
|000049e0| 66 41 0e 0f 0d 44 5c 22 | 26 06 88 d0 0e 06 21 88 |fA...D\"|&.....!.|
|000049f0| d1 0e 06 21 2a 87 22 20 | 5b 66 69 6c 65 2d 6e 61 |...!*." |[file-na|
|00004a00| 6d 65 2d 61 73 2d 64 69 | 72 65 63 74 6f 72 79 20 |me-as-di|rectory |
|00004a10| 61 72 63 68 69 76 65 2d | 74 6d 70 64 69 72 20 64 |archive-|tmpdir d|
|00004a20| 65 66 61 75 6c 74 2d 64 | 69 72 65 63 74 6f 72 79 |efault-d|irectory|
|00004a30| 20 65 78 70 61 6e 64 2d | 66 69 6c 65 2d 6e 61 6d | expand-|file-nam|
|00004a40| 65 20 66 69 6c 65 2d 6e | 61 6d 65 2d 6e 6f 6e 64 |e file-n|ame-nond|
|00004a50| 69 72 65 63 74 6f 72 79 | 20 6e 61 6d 65 20 74 6d |irectory| name tm|
|00004a60| 70 66 69 6c 65 20 6d 61 | 6b 65 2d 64 69 72 65 63 |pfile ma|ke-direc|
|00004a70| 74 6f 72 79 20 64 69 72 | 65 63 74 6f 72 79 2d 66 |tory dir|ectory-f|
|00004a80| 69 6c 65 2d 6e 61 6d 65 | 20 74 20 61 70 70 6c 79 |ile-name| t apply|
|00004a90| 20 63 61 6c 6c 2d 70 72 | 6f 63 65 73 73 20 63 6f | call-pr|ocess co|
|00004aa0| 6d 6d 61 6e 64 20 6e 69 | 6c 20 61 70 70 65 6e 64 |mmand ni|l append|
|00004ab0| 20 61 72 63 68 69 76 65 | 20 69 6e 73 65 72 74 2d | archive| insert-|
|00004ac0| 66 69 6c 65 2d 63 6f 6e | 74 65 6e 74 73 20 61 72 |file-con|tents ar|
|00004ad0| 63 68 69 76 65 2d 64 65 | 6c 65 74 65 2d 6c 6f 63 |chive-de|lete-loc|
|00004ae0| 61 6c 5d 20 31 30 5d 29 | 0a 28 64 65 66 61 6c 69 |al] 10])|.(defali|
|00004af0| 61 73 20 27 61 72 63 68 | 69 76 65 2d 65 78 74 72 |as 'arch|ive-extr|
|00004b00| 61 63 74 2d 62 79 2d 73 | 74 64 6f 75 74 20 23 5b |act-by-s|tdout #[|
|00004b10| 28 61 72 63 68 69 76 65 | 20 6e 61 6d 65 20 63 6f |(archive| name co|
|00004b20| 6d 6d 61 6e 64 29 20 22 | c0 19 c2 c3 5c 66 40 c5 |mmand) "|....\f@.|
|00004b30| c0 c5 c6 5c 66 41 0e 07 | 0e 08 44 5c 22 26 06 29 |...\fA..|..D\"&.)|
|00004b40| 87 22 20 5b 74 20 62 69 | 6e 61 72 79 2d 70 72 6f |." [t bi|nary-pro|
|00004b50| 63 65 73 73 2d 6f 75 74 | 70 75 74 20 61 70 70 6c |cess-out|put appl|
|00004b60| 79 20 63 61 6c 6c 2d 70 | 72 6f 63 65 73 73 20 63 |y call-p|rocess c|
|00004b70| 6f 6d 6d 61 6e 64 20 6e | 69 6c 20 61 70 70 65 6e |ommand n|il appen|
|00004b80| 64 20 61 72 63 68 69 76 | 65 20 6e 61 6d 65 5d 20 |d archiv|e name] |
|00004b90| 31 30 5d 29 0a 23 40 35 | 34 20 49 6e 20 61 72 63 |10]).#@5|4 In arc|
|00004ba0| 68 69 76 65 20 6d 6f 64 | 65 2c 20 66 69 6e 64 20 |hive mod|e, find |
|00004bb0| 74 68 69 73 20 6d 65 6d | 62 65 72 20 69 6e 20 61 |this mem|ber in a|
|00004bc0| 6e 6f 74 68 65 72 20 77 | 69 6e 64 6f 77 2e 1f 0a |nother w|indow...|
|00004bd0| 28 64 65 66 61 6c 69 61 | 73 20 27 61 72 63 68 69 |(defalia|s 'archi|
|00004be0| 76 65 2d 65 78 74 72 61 | 63 74 2d 6f 74 68 65 72 |ve-extra|ct-other|
|00004bf0| 2d 77 69 6e 64 6f 77 20 | 23 5b 6e 69 6c 20 22 c0 |-window |#[nil ".|
|00004c00| c1 21 87 22 20 5b 61 72 | 63 68 69 76 65 2d 65 78 |.!." [ar|chive-ex|
|00004c10| 74 72 61 63 74 20 74 5d | 20 32 20 28 23 24 20 2e |tract t]| 2 (#$ .|
|00004c20| 20 31 39 33 35 34 29 20 | 6e 69 6c 5d 29 0a 23 40 | 19354) |nil]).#@|
|00004c30| 35 37 20 49 6e 20 61 72 | 63 68 69 76 65 20 6d 6f |57 In ar|chive mo|
|00004c40| 64 65 2c 20 64 69 73 70 | 6c 61 79 20 74 68 69 73 |de, disp|lay this|
|00004c50| 20 6d 65 6d 62 65 72 20 | 69 6e 20 61 6e 6f 74 68 | member |in anoth|
|00004c60| 65 72 20 77 69 6e 64 6f | 77 2e 1f 0a 28 64 65 66 |er windo|w...(def|
|00004c70| 61 6c 69 61 73 20 27 61 | 72 63 68 69 76 65 2d 64 |alias 'a|rchive-d|
|00004c80| 69 73 70 6c 61 79 2d 6f | 74 68 65 72 2d 77 69 6e |isplay-o|ther-win|
|00004c90| 64 6f 77 20 23 5b 6e 69 | 6c 20 22 c0 c1 21 87 22 |dow #[ni|l "..!."|
|00004ca0| 20 5b 61 72 63 68 69 76 | 65 2d 65 78 74 72 61 63 | [archiv|e-extrac|
|00004cb0| 74 20 64 69 73 70 6c 61 | 79 5d 20 32 20 28 23 24 |t displa|y] 2 (#$|
|00004cc0| 20 2e 20 31 39 35 30 37 | 29 20 6e 69 6c 5d 29 0a | . 19507|) nil]).|
|00004cd0| 23 40 34 38 20 49 6e 20 | 61 72 63 68 69 76 65 20 |#@48 In |archive |
|00004ce0| 6d 6f 64 65 2c 20 76 69 | 65 77 20 74 68 65 20 6d |mode, vi|ew the m|
|00004cf0| 65 6d 62 65 72 20 6f 6e | 20 74 68 69 73 20 6c 69 |ember on| this li|
|00004d00| 6e 65 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ne...(de|falias '|
|00004d10| 61 72 63 68 69 76 65 2d | 76 69 65 77 20 23 5b 6e |archive-|view #[n|
|00004d20| 69 6c 20 22 c0 c1 21 87 | 22 20 5b 61 72 63 68 69 |il "..!.|" [archi|
|00004d30| 76 65 2d 65 78 74 72 61 | 63 74 20 76 69 65 77 5d |ve-extra|ct view]|
|00004d40| 20 32 20 28 23 24 20 2e | 20 31 39 36 36 39 29 20 | 2 (#$ .| 19669) |
|00004d50| 6e 69 6c 5d 29 0a 23 40 | 36 31 20 41 64 64 20 63 |nil]).#@|61 Add c|
|00004d60| 75 72 72 65 6e 74 20 62 | 75 66 66 65 72 20 74 6f |urrent b|uffer to|
|00004d70| 20 74 68 65 20 61 72 63 | 68 69 76 65 20 69 6e 20 | the arc|hive in |
|00004d80| 41 52 43 42 55 46 20 6e | 61 6d 69 6e 67 20 69 74 |ARCBUF n|aming it|
|00004d90| 20 4e 41 4d 45 2e 1f 0a | 28 64 65 66 61 6c 69 61 | NAME...|(defalia|
|00004da0| 73 20 27 61 72 63 68 69 | 76 65 2d 61 64 64 2d 6e |s 'archi|ve-add-n|
|00004db0| 65 77 2d 6d 65 6d 62 65 | 72 20 23 5b 28 61 72 63 |ew-membe|r #[(arc|
|00004dc0| 62 75 66 20 6e 61 6d 65 | 29 20 22 8a 08 71 88 09 |buf name|) "..q..|
|00004dd0| c2 3d 84 0e 00 c3 c4 21 | 88 0d 83 16 00 c3 c6 21 |.=.....!|.......!|
|00004de0| 88 29 08 70 3d 83 21 00 | c3 c7 21 88 0e 08 c9 98 |.).p=.!.|..!.....|
|00004df0| 83 2c 00 c3 ca 21 88 8a | 08 71 88 cb 1e 5c 66 cd |.,...!..|.q...\f.|
|00004e00| ce cf 0e 10 21 d1 0e 5c | 66 52 21 2a 70 1e 12 1e |....!..\|fR!*p...|
|00004e10| 13 d4 0e 13 21 83 5c 5c | 00 8a 08 71 88 0e 13 0e |....!.\\|...q....|
|00004e20| 15 0e 12 0e 08 23 29 82 | 5f 00 c3 d6 21 2a 87 22 |.....#).|_...!*."|
|00004e30| 20 5b 61 72 63 62 75 66 | 20 6d 61 6a 6f 72 2d 6d | [arcbuf| major-m|
|00004e40| 6f 64 65 20 61 72 63 68 | 69 76 65 2d 6d 6f 64 65 |ode arch|ive-mode|
|00004e50| 20 65 72 72 6f 72 20 22 | 42 75 66 66 65 72 20 69 | error "|Buffer i|
|00004e60| 73 20 6e 6f 74 20 61 6e | 20 61 72 63 68 69 76 65 |s not an| archive|
|00004e70| 20 62 75 66 66 65 72 22 | 20 61 72 63 68 69 76 65 | buffer"| archive|
|00004e80| 2d 72 65 61 64 2d 6f 6e | 6c 79 20 22 41 72 63 68 |-read-on|ly "Arch|
|00004e90| 69 76 65 20 69 73 20 72 | 65 61 64 2d 6f 6e 6c 79 |ive is r|ead-only|
|00004ea0| 22 20 22 41 6e 20 61 72 | 63 68 69 76 65 20 62 75 |" "An ar|chive bu|
|00004eb0| 66 66 65 72 20 63 61 6e | 6e 6f 74 20 62 65 20 61 |ffer can|not be a|
|00004ec0| 64 64 65 64 20 74 6f 20 | 69 74 73 65 6c 66 22 20 |dded to |itself" |
|00004ed0| 6e 61 6d 65 20 22 22 20 | 22 41 72 63 68 69 76 65 |name "" |"Archive|
|00004ee0| 20 6d 65 6d 62 65 72 73 | 20 6d 61 79 20 6e 6f 74 | members| may not|
|00004ef0| 20 62 65 20 67 69 76 65 | 6e 20 65 6d 70 74 79 20 | be give|n empty |
|00004f00| 6e 61 6d 65 73 22 20 22 | 61 64 64 2d 6e 65 77 2d |names" "|add-new-|
|00004f10| 6d 65 6d 62 65 72 22 20 | 73 75 66 66 69 78 20 69 |member" |suffix i|
|00004f20| 6e 74 65 72 6e 20 22 61 | 72 63 68 69 76 65 2d 22 |ntern "a|rchive-"|
|00004f30| 20 73 79 6d 62 6f 6c 2d | 6e 61 6d 65 20 61 72 63 | symbol-|name arc|
|00004f40| 68 69 76 65 2d 73 75 62 | 74 79 70 65 20 22 2d 22 |hive-sub|type "-"|
|00004f50| 20 6d 65 6d 62 75 66 20 | 66 75 6e 63 20 66 62 6f | membuf |func fbo|
|00004f60| 75 6e 64 70 20 62 75 66 | 66 65 72 2d 66 69 6c 65 |undp buf|fer-file|
|00004f70| 2d 6e 61 6d 65 20 22 41 | 64 64 69 6e 67 20 61 20 |-name "A|dding a |
|00004f80| 6e 65 77 20 6d 65 6d 62 | 65 72 20 69 73 20 6e 6f |new memb|er is no|
|00004f90| 74 20 73 75 70 70 6f 72 | 74 65 64 20 66 6f 72 20 |t suppor|ted for |
|00004fa0| 74 68 69 73 20 61 72 63 | 68 69 76 65 20 74 79 70 |this arc|hive typ|
|00004fb0| 65 22 5d 20 35 20 28 23 | 24 20 2e 20 31 39 38 30 |e"] 5 (#|$ . 1980|
|00004fc0| 33 29 20 28 6c 69 73 74 | 20 28 67 65 74 2d 62 75 |3) (list| (get-bu|
|00004fd0| 66 66 65 72 20 28 72 65 | 61 64 2d 62 75 66 66 65 |ffer (re|ad-buffe|
|00004fe0| 72 20 22 42 75 66 66 65 | 72 20 63 6f 6e 74 61 69 |r "Buffe|r contai|
|00004ff0| 6e 69 6e 67 20 61 72 63 | 68 69 76 65 3a 20 22 20 |ning arc|hive: " |
|00005000| 28 6c 65 74 20 28 28 62 | 75 66 73 20 28 62 75 66 |(let ((b|ufs (buf|
|00005010| 66 65 72 2d 6c 69 73 74 | 29 29 29 20 28 77 68 69 |fer-list|))) (whi|
|00005020| 6c 65 20 28 61 6e 64 20 | 62 75 66 73 20 28 6e 6f |le (and |bufs (no|
|00005030| 74 20 28 65 71 20 28 73 | 61 76 65 2d 65 78 63 75 |t (eq (s|ave-excu|
|00005040| 72 73 69 6f 6e 20 28 73 | 65 74 2d 62 75 66 66 65 |rsion (s|et-buffe|
|00005050| 72 20 28 63 61 72 20 62 | 75 66 73 29 29 20 6d 61 |r (car b|ufs)) ma|
|00005060| 6a 6f 72 2d 6d 6f 64 65 | 29 20 28 71 75 6f 74 65 |jor-mode|) (quote|
|00005070| 20 61 72 63 68 69 76 65 | 2d 6d 6f 64 65 29 29 29 | archive|-mode)))|
|00005080| 29 20 28 73 65 74 71 20 | 62 75 66 73 20 28 63 64 |) (setq |bufs (cd|
|00005090| 72 20 62 75 66 73 29 29 | 29 20 28 69 66 20 62 75 |r bufs))|) (if bu|
|000050a0| 66 73 20 28 63 61 72 20 | 62 75 66 73 29 20 28 65 |fs (car |bufs) (e|
|000050b0| 72 72 6f 72 20 22 54 68 | 65 72 65 20 61 72 65 20 |rror "Th|ere are |
|000050c0| 6e 6f 20 61 72 63 68 69 | 76 65 20 62 75 66 66 65 |no archi|ve buffe|
|000050d0| 72 73 22 29 29 29 20 74 | 29 29 20 28 72 65 61 64 |rs"))) t|)) (read|
|000050e0| 2d 73 74 72 69 6e 67 20 | 22 46 69 6c 65 20 6e 61 |-string |"File na|
|000050f0| 6d 65 20 69 6e 20 61 72 | 63 68 69 76 65 3a 20 22 |me in ar|chive: "|
|00005100| 20 28 69 66 20 62 75 66 | 66 65 72 2d 66 69 6c 65 | (if buf|fer-file|
|00005110| 2d 6e 61 6d 65 20 28 66 | 69 6c 65 2d 6e 61 6d 65 |-name (f|ile-name|
|00005120| 2d 6e 6f 6e 64 69 72 65 | 63 74 6f 72 79 20 62 75 |-nondire|ctory bu|
|00005130| 66 66 65 72 2d 66 69 6c | 65 2d 6e 61 6d 65 29 20 |ffer-fil|e-name) |
|00005140| 22 22 29 29 29 5d 29 0a | 23 40 35 35 20 2a 50 6f |"")))]).|#@55 *Po|
|00005150| 73 73 69 62 6c 79 20 68 | 61 6e 64 6c 65 20 61 20 |ssibly h|andle a |
|00005160| 62 75 66 66 65 72 20 77 | 69 74 68 20 5e 4d 5e 4a |buffer w|ith ^M^J|
|00005170| 20 74 65 72 6d 69 6e 61 | 74 65 64 20 6c 69 6e 65 | termina|ted line|
|00005180| 73 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 61 |s...(def|alias 'a|
|00005190| 72 63 68 69 76 65 2d 63 | 68 65 63 6b 2d 64 6f 73 |rchive-c|heck-dos|
|000051a0| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 66 6f | #[(&opt|ional fo|
|000051b0| 72 63 65 29 20 22 8c 7e | 88 8a 65 62 88 08 86 11 |rce) ".~|..eb....|
|000051c0| 00 c1 c2 c3 c4 23 3f 89 | 15 3f 16 06 0d 85 3c 00 |.....#?.|.?....<.|
|000051d0| c7 20 1e 08 c9 70 21 88 | 65 62 88 ca cb c3 c4 23 |. ...p!.|eb.....#|
|000051e0| 83 34 00 cc cd 21 88 82 | 25 00 ce 20 88 cf 0e 08 |.4...!..|%.. ....|
|000051f0| 21 29 2a 87 22 20 5b 66 | 6f 72 63 65 20 73 65 61 |!)*." [f|orce sea|
|00005200| 72 63 68 2d 66 6f 72 77 | 61 72 64 2d 72 65 67 65 |rch-forw|ard-rege|
|00005210| 78 70 20 22 5b 5e 0d 5d | 5c 6e 22 20 6e 69 6c 20 |xp "[^.]|\n" nil |
|00005220| 74 20 61 72 63 68 69 76 | 65 2d 73 75 62 66 69 6c |t archiv|e-subfil|
|00005230| 65 2d 64 6f 73 20 62 75 | 66 66 65 72 2d 66 69 6c |e-dos bu|ffer-fil|
|00005240| 65 2d 74 79 70 65 20 62 | 75 66 66 65 72 2d 6d 6f |e-type b|uffer-mo|
|00005250| 64 69 66 69 65 64 2d 70 | 20 6d 6f 64 69 66 69 65 |dified-p| modifie|
|00005260| 64 20 62 75 66 66 65 72 | 2d 64 69 73 61 62 6c 65 |d buffer|-disable|
|00005270| 2d 75 6e 64 6f 20 73 65 | 61 72 63 68 2d 66 6f 72 |-undo se|arch-for|
|00005280| 77 61 72 64 20 22 0d 5c | 6e 22 20 72 65 70 6c 61 |ward ".\|n" repla|
|00005290| 63 65 2d 6d 61 74 63 68 | 20 22 5c 6e 22 20 62 75 |ce-match| "\n" bu|
|000052a0| 66 66 65 72 2d 65 6e 61 | 62 6c 65 2d 75 6e 64 6f |ffer-ena|ble-undo|
|000052b0| 20 73 65 74 2d 62 75 66 | 66 65 72 2d 6d 6f 64 69 | set-buf|fer-modi|
|000052c0| 66 69 65 64 2d 70 5d 20 | 35 20 28 23 24 20 2e 20 |fied-p] |5 (#$ . |
|000052d0| 2d 32 30 38 31 33 29 5d | 29 0a 28 64 65 66 61 6c |-20813)]|).(defal|
|000052e0| 69 61 73 20 27 61 72 63 | 68 69 76 65 2d 77 72 69 |ias 'arc|hive-wri|
|000052f0| 74 65 2d 66 69 6c 65 2d | 6d 65 6d 62 65 72 20 23 |te-file-|member #|
|00005300| 5b 6e 69 6c 20 22 08 83 | 2b 00 8c 7e 88 8a 65 62 |[nil "..|+..~..eb|
|00005310| 88 09 1a c3 8e c4 11 c5 | c6 c7 c4 23 83 20 00 c8 |........|...#. ..|
|00005320| c9 21 88 82 11 00 c7 10 | c4 16 5c 6e cb 20 88 2c |.!......|..\n. .,|
|00005330| c4 87 8a 8c cc cd 21 88 | 7e 88 8a 0e 0e 71 88 cf |......!.|~....q..|
|00005340| 1e 10 d1 d2 d3 0e 14 21 | d5 0e 10 52 21 2a 8a 0e |.......!|...R!*..|
|00005350| 0e 71 88 d6 20 29 1e 17 | 1e 18 d9 0e 18 21 83 65 |.q.. )..|.....!.e|
|00005360| 00 0e 18 0e 17 0e 1a 5c | 22 88 82 6f 00 db 0e 17 |.......\|"..o....|
|00005370| 0e 1a 0e 18 4a 23 88 2a | dc c7 21 88 cc dd 21 88 |....J#.*|..!...!.|
|00005380| 0e 0e 71 88 de 20 88 2a | c4 87 22 20 5b 61 72 63 |..q.. .*|.." [arc|
|00005390| 68 69 76 65 2d 73 75 62 | 66 69 6c 65 2d 64 6f 73 |hive-sub|file-dos|
|000053a0| 20 62 75 66 66 65 72 2d | 75 6e 64 6f 2d 6c 69 73 | buffer-|undo-lis|
|000053b0| 74 20 75 6e 64 6f 2d 6c | 69 73 74 20 28 28 62 79 |t undo-l|ist ((by|
|000053c0| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 21 88 5c 6e 13 |te-code |"..!.\n.|
|000053d0| c0 87 22 20 5b 61 72 63 | 68 69 76 65 2d 63 68 65 |.." [arc|hive-che|
|000053e0| 63 6b 2d 64 6f 73 20 74 | 20 75 6e 64 6f 2d 6c 69 |ck-dos t| undo-li|
|000053f0| 73 74 20 62 75 66 66 65 | 72 2d 75 6e 64 6f 2d 6c |st buffe|r-undo-l|
|00005400| 69 73 74 5d 20 32 29 29 | 20 74 20 73 65 61 72 63 |ist] 2))| t searc|
|00005410| 68 2d 66 6f 72 77 61 72 | 64 20 22 5c 6e 22 20 6e |h-forwar|d "\n" n|
|00005420| 69 6c 20 72 65 70 6c 61 | 63 65 2d 6d 61 74 63 68 |il repla|ce-match|
|00005430| 20 22 0d 5c 6e 22 20 62 | 75 66 66 65 72 2d 66 69 | ".\n" b|uffer-fi|
|00005440| 6c 65 2d 74 79 70 65 20 | 61 72 63 68 69 76 65 2d |le-type |archive-|
|00005450| 77 72 69 74 65 2d 66 69 | 6c 65 2d 6d 65 6d 62 65 |write-fi|le-membe|
|00005460| 72 20 6d 65 73 73 61 67 | 65 20 22 55 70 64 61 74 |r messag|e "Updat|
|00005470| 69 6e 67 20 61 72 63 68 | 69 76 65 2e 2e 2e 22 20 |ing arch|ive..." |
|00005480| 61 72 63 68 69 76 65 2d | 73 75 70 65 72 69 6f 72 |archive-|superior|
|00005490| 2d 62 75 66 66 65 72 20 | 22 77 72 69 74 65 2d 66 |-buffer |"write-f|
|000054a0| 69 6c 65 2d 6d 65 6d 62 | 65 72 22 20 73 75 66 66 |ile-memb|er" suff|
|000054b0| 69 78 20 69 6e 74 65 72 | 6e 20 22 61 72 63 68 69 |ix inter|n "archi|
|000054c0| 76 65 2d 22 20 73 79 6d | 62 6f 6c 2d 6e 61 6d 65 |ve-" sym|bol-name|
|000054d0| 20 61 72 63 68 69 76 65 | 2d 73 75 62 74 79 70 65 | archive|-subtype|
|000054e0| 20 22 2d 22 20 62 75 66 | 66 65 72 2d 66 69 6c 65 | "-" buf|fer-file|
|000054f0| 2d 6e 61 6d 65 20 61 72 | 63 68 69 76 65 20 77 72 |-name ar|chive wr|
|00005500| 69 74 65 72 20 66 62 6f | 75 6e 64 70 20 61 72 63 |iter fbo|undp arc|
|00005510| 68 69 76 65 2d 73 75 62 | 66 69 6c 65 2d 6d 6f 64 |hive-sub|file-mod|
|00005520| 65 20 61 72 63 68 69 76 | 65 2d 2a 2d 77 72 69 74 |e archiv|e-*-writ|
|00005530| 65 2d 66 69 6c 65 2d 6d | 65 6d 62 65 72 20 73 65 |e-file-m|ember se|
|00005540| 74 2d 62 75 66 66 65 72 | 2d 6d 6f 64 69 66 69 65 |t-buffer|-modifie|
|00005550| 64 2d 70 20 22 55 70 64 | 61 74 69 6e 67 20 61 72 |d-p "Upd|ating ar|
|00005560| 63 68 69 76 65 2e 2e 2e | 64 6f 6e 65 22 20 72 65 |chive...|done" re|
|00005570| 76 65 72 74 2d 62 75 66 | 66 65 72 5d 20 35 5d 29 |vert-buf|fer] 5])|
|00005580| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 61 72 63 68 |.(defali|as 'arch|
|00005590| 69 76 65 2d 2a 2d 77 72 | 69 74 65 2d 66 69 6c 65 |ive-*-wr|ite-file|
|000055a0| 2d 6d 65 6d 62 65 72 20 | 23 5b 28 61 72 63 68 69 |-member |#[(archi|
|000055b0| 76 65 20 64 65 73 63 72 | 20 63 6f 6d 6d 61 6e 64 |ve descr| command|
|000055c0| 29 20 22 08 c1 48 1a c3 | 5c 6e 5c 66 5c 22 1d c6 |) "..H..|\n\f\"..|
|000055d0| c7 5c 66 21 21 1e 08 c7 | 0e 08 21 1e 09 ca 8e cb |.\f!!...|..!.....|
|000055e0| cc 0d 21 cd 5c 22 88 ce | 65 64 0d cf d0 25 88 08 |..!.\"..|ed...%..|
|000055f0| d1 48 83 37 00 d2 0d d3 | 08 d1 48 d4 5c 22 5c 22 |.H.7....|..H.\"\"|
|00005600| 88 d5 d6 0e 17 40 cf 89 | 89 d8 0e 17 41 0e 19 5c |.....@..|....A..\|
|00005610| 6e 44 5c 22 26 06 89 1e | 1a c1 9a 3f 85 58 00 db |nD\"&...|...?.X..|
|00005620| dc 0e 1a 5c 22 2e 06 87 | 22 20 5b 64 65 73 63 72 |...\"...|" [descr|
|00005630| 20 30 20 65 6e 61 6d 65 | 20 65 78 70 61 6e 64 2d | 0 ename| expand-|
|00005640| 66 69 6c 65 2d 6e 61 6d | 65 20 61 72 63 68 69 76 |file-nam|e archiv|
|00005650| 65 2d 74 6d 70 64 69 72 | 20 74 6d 70 66 69 6c 65 |e-tmpdir| tmpfile|
|00005660| 20 64 69 72 65 63 74 6f | 72 79 2d 66 69 6c 65 2d | directo|ry-file-|
|00005670| 6e 61 6d 65 20 66 69 6c | 65 2d 6e 61 6d 65 2d 61 |name fil|e-name-a|
|00005680| 73 2d 64 69 72 65 63 74 | 6f 72 79 20 74 6f 70 20 |s-direct|ory top |
|00005690| 64 65 66 61 75 6c 74 2d | 64 69 72 65 63 74 6f 72 |default-|director|
|000056a0| 79 20 28 28 61 72 63 68 | 69 76 65 2d 64 65 6c 65 |y ((arch|ive-dele|
|000056b0| 74 65 2d 6c 6f 63 61 6c | 20 74 6d 70 66 69 6c 65 |te-local| tmpfile|
|000056c0| 29 29 20 6d 61 6b 65 2d | 64 69 72 65 63 74 6f 72 |)) make-|director|
|000056d0| 79 20 66 69 6c 65 2d 6e | 61 6d 65 2d 64 69 72 65 |y file-n|ame-dire|
|000056e0| 63 74 6f 72 79 20 74 20 | 77 72 69 74 65 2d 72 65 |ctory t |write-re|
|000056f0| 67 69 6f 6e 20 6e 69 6c | 20 6e 6f 6d 65 73 73 61 |gion nil| nomessa|
|00005700| 67 65 20 33 20 73 65 74 | 2d 66 69 6c 65 2d 6d 6f |ge 3 set|-file-mo|
|00005710| 64 65 73 20 6c 6f 67 69 | 6f 72 20 32 35 36 20 61 |des logi|or 256 a|
|00005720| 70 70 6c 79 20 63 61 6c | 6c 2d 70 72 6f 63 65 73 |pply cal|l-proces|
|00005730| 73 20 63 6f 6d 6d 61 6e | 64 20 61 70 70 65 6e 64 |s comman|d append|
|00005740| 20 61 72 63 68 69 76 65 | 20 65 78 69 74 63 6f 64 | archive| exitcod|
|00005750| 65 20 65 72 72 6f 72 20 | 22 55 70 64 61 74 69 6e |e error |"Updatin|
|00005760| 67 20 77 61 73 20 75 6e | 73 75 63 63 65 73 73 66 |g was un|successf|
|00005770| 75 6c 20 28 25 53 29 22 | 5d 20 31 31 5d 29 0a 28 |ul (%S)"|] 11]).(|
|00005780| 64 65 66 61 6c 69 61 73 | 20 27 61 72 63 68 69 76 |defalias| 'archiv|
|00005790| 65 2d 77 72 69 74 65 2d | 66 69 6c 65 20 23 5b 6e |e-write-|file #[n|
|000057a0| 69 6c 20 22 8a c0 09 64 | 5c 6e c3 c4 25 88 c5 c3 |il "...d|\n..%...|
|000057b0| 21 88 29 c4 87 22 20 5b | 77 72 69 74 65 2d 72 65 |!.).." [|write-re|
|000057c0| 67 69 6f 6e 20 61 72 63 | 68 69 76 65 2d 70 72 6f |gion arc|hive-pro|
|000057d0| 70 65 72 2d 66 69 6c 65 | 2d 73 74 61 72 74 20 62 |per-file|-start b|
|000057e0| 75 66 66 65 72 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |uffer-fi|le-name |
|000057f0| 6e 69 6c 20 74 20 73 65 | 74 2d 62 75 66 66 65 72 |nil t se|t-buffer|
|00005800| 2d 6d 6f 64 69 66 69 65 | 64 2d 70 5d 20 36 5d 29 |-modifie|d-p] 6])|
|00005810| 0a 23 40 31 31 33 20 49 | 6e 20 61 72 63 68 69 76 |.#@113 I|n archiv|
|00005820| 65 20 6d 6f 64 65 2c 20 | 6d 61 72 6b 20 74 68 69 |e mode, |mark thi|
|00005830| 73 20 6d 65 6d 62 65 72 | 20 74 6f 20 62 65 20 64 |s member| to be d|
|00005840| 65 6c 65 74 65 64 20 66 | 72 6f 6d 20 74 68 65 20 |eleted f|rom the |
|00005850| 61 72 63 68 69 76 65 2e | 0a 57 69 74 68 20 61 20 |archive.|.With a |
|00005860| 70 72 65 66 69 78 20 61 | 72 67 75 6d 65 6e 74 2c |prefix a|rgument,|
|00005870| 20 6d 61 72 6b 20 74 68 | 61 74 20 6d 61 6e 79 20 | mark th|at many |
|00005880| 66 69 6c 65 73 2e 1f 0a | 28 64 65 66 61 6c 69 61 |files...|(defalia|
|00005890| 73 20 27 61 72 63 68 69 | 76 65 2d 66 6c 61 67 2d |s 'archi|ve-flag-|
|000058a0| 64 65 6c 65 74 65 64 20 | 23 5b 28 70 20 26 6f 70 |deleted |#[(p &op|
|000058b0| 74 69 6f 6e 61 6c 20 74 | 79 70 65 29 20 22 08 84 |tional t|ype) "..|
|000058c0| 06 00 c1 10 c2 79 88 0b | c2 59 83 13 00 c4 82 14 |.....y..|.Y......|
|000058d0| 00 c5 c6 20 c7 1e 08 1e | 09 1e 5c 6e 0b c2 55 84 |... ....|..\n..U.|
|000058e0| 3d 00 cb cc 21 83 30 00 | cd c4 21 88 08 63 88 0e |=...!.0.|..!..c..|
|000058f0| 5c 6e 79 88 0b 0e 5c 6e | 5a 89 13 82 1e 00 ce 0e |\ny...\n|Z.......|
|00005900| 09 21 88 2b cf c2 21 87 | 22 20 5b 74 79 70 65 20 |.!.+..!.|" [type |
|00005910| 36 38 20 30 20 70 20 31 | 20 2d 31 20 62 75 66 66 |68 0 p 1| -1 buff|
|00005920| 65 72 2d 6d 6f 64 69 66 | 69 65 64 2d 70 20 6e 69 |er-modif|ied-p ni|
|00005930| 6c 20 62 75 66 66 65 72 | 2d 72 65 61 64 2d 6f 6e |l buffer|-read-on|
|00005940| 6c 79 20 6d 6f 64 69 66 | 69 65 64 20 73 69 67 6e |ly modif|ied sign|
|00005950| 20 61 72 63 68 69 76 65 | 2d 67 65 74 2d 64 65 73 | archive|-get-des|
|00005960| 63 72 20 74 20 64 65 6c | 65 74 65 2d 63 68 61 72 |cr t del|ete-char|
|00005970| 20 73 65 74 2d 62 75 66 | 66 65 72 2d 6d 6f 64 69 | set-buf|fer-modi|
|00005980| 66 69 65 64 2d 70 20 61 | 72 63 68 69 76 65 2d 6e |fied-p a|rchive-n|
|00005990| 65 78 74 2d 6c 69 6e 65 | 5d 20 34 20 28 23 24 20 |ext-line|] 4 (#$ |
|000059a0| 2e 20 32 32 35 35 31 29 | 20 22 70 22 5d 29 0a 23 |. 22551)| "p"]).#|
|000059b0| 40 31 32 36 20 49 6e 20 | 61 72 63 68 69 76 65 20 |@126 In |archive |
|000059c0| 6d 6f 64 65 2c 20 75 6e | 2d 6d 61 72 6b 20 74 68 |mode, un|-mark th|
|000059d0| 69 73 20 6d 65 6d 62 65 | 72 20 69 66 20 69 74 20 |is membe|r if it |
|000059e0| 69 73 20 6d 61 72 6b 65 | 64 20 74 6f 20 62 65 20 |is marke|d to be |
|000059f0| 64 65 6c 65 74 65 64 2e | 0a 57 69 74 68 20 61 20 |deleted.|.With a |
|00005a00| 70 72 65 66 69 78 20 61 | 72 67 75 6d 65 6e 74 2c |prefix a|rgument,|
|00005a10| 20 75 6e 2d 6d 61 72 6b | 20 74 68 61 74 20 6d 61 | un-mark| that ma|
|00005a20| 6e 79 20 66 69 6c 65 73 | 20 66 6f 72 77 61 72 64 |ny files| forward|
|00005a30| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 61 72 |...(defa|lias 'ar|
|00005a40| 63 68 69 76 65 2d 75 6e | 66 6c 61 67 20 23 5b 28 |chive-un|flag #[(|
|00005a50| 70 29 20 22 c0 09 c2 5c | 22 87 22 20 5b 61 72 63 |p) "...\|"." [arc|
|00005a60| 68 69 76 65 2d 66 6c 61 | 67 2d 64 65 6c 65 74 65 |hive-fla|g-delete|
|00005a70| 64 20 70 20 33 32 5d 20 | 33 20 28 23 24 20 2e 20 |d p 32] |3 (#$ . |
|00005a80| 32 32 39 36 35 29 20 22 | 70 22 5d 29 0a 23 40 31 |22965) "|p"]).#@1|
|00005a90| 32 39 20 49 6e 20 61 72 | 63 68 69 76 65 20 6d 6f |29 In ar|chive mo|
|00005aa0| 64 65 2c 20 75 6e 2d 6d | 61 72 6b 20 74 68 69 73 |de, un-m|ark this|
|00005ab0| 20 6d 65 6d 62 65 72 20 | 69 66 20 69 74 20 69 73 | member |if it is|
|00005ac0| 20 6d 61 72 6b 65 64 20 | 74 6f 20 62 65 20 64 65 | marked |to be de|
|00005ad0| 6c 65 74 65 64 2e 0a 57 | 69 74 68 20 61 20 70 72 |leted..W|ith a pr|
|00005ae0| 65 66 69 78 20 61 72 67 | 75 6d 65 6e 74 2c 20 75 |efix arg|ument, u|
|00005af0| 6e 2d 6d 61 72 6b 20 74 | 68 61 74 20 6d 61 6e 79 |n-mark t|hat many|
|00005b00| 20 6d 65 6d 62 65 72 73 | 20 62 61 63 6b 77 61 72 | members| backwar|
|00005b10| 64 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 61 |d...(def|alias 'a|
|00005b20| 72 63 68 69 76 65 2d 75 | 6e 66 6c 61 67 2d 62 61 |rchive-u|nflag-ba|
|00005b30| 63 6b 77 61 72 64 73 20 | 23 5b 28 70 29 20 22 c0 |ckwards |#[(p) ".|
|00005b40| 09 5b c2 5c 22 87 22 20 | 5b 61 72 63 68 69 76 65 |.[.\"." |[archive|
|00005b50| 2d 66 6c 61 67 2d 64 65 | 6c 65 74 65 64 20 70 20 |-flag-de|leted p |
|00005b60| 33 32 5d 20 33 20 28 23 | 24 20 2e 20 32 33 31 38 |32] 3 (#|$ . 2318|
|00005b70| 37 29 20 22 70 22 5d 29 | 0a 23 40 31 39 20 52 65 |7) "p"])|.#@19 Re|
|00005b80| 6d 6f 76 65 20 61 6c 6c | 20 6d 61 72 6b 73 2e 1f |move all| marks..|
|00005b90| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 61 72 63 68 |.(defali|as 'arch|
|00005ba0| 69 76 65 2d 75 6e 6d 61 | 72 6b 2d 61 6c 6c 2d 66 |ive-unma|rk-all-f|
|00005bb0| 69 6c 65 73 20 23 5b 6e | 69 6c 20 22 c0 20 c1 1a |iles #[n|il ". ..|
|00005bc0| 1b 8a 5c 66 62 88 60 0d | 57 83 5c 22 00 67 c6 55 |..\fb.`.|W.\".g.U|
|00005bd0| 84 1c 00 c7 c8 21 88 c6 | 63 88 c8 79 88 82 09 00 |.....!..|c..y....|
|00005be0| 29 c9 0b 21 2a 87 22 20 | 5b 62 75 66 66 65 72 2d |)..!*." |[buffer-|
|00005bf0| 6d 6f 64 69 66 69 65 64 | 2d 70 20 6e 69 6c 20 62 |modified|-p nil b|
|00005c00| 75 66 66 65 72 2d 72 65 | 61 64 2d 6f 6e 6c 79 20 |uffer-re|ad-only |
|00005c10| 6d 6f 64 69 66 69 65 64 | 20 61 72 63 68 69 76 65 |modified| archive|
|00005c20| 2d 66 69 6c 65 2d 6c 69 | 73 74 2d 73 74 61 72 74 |-file-li|st-start|
|00005c30| 20 61 72 63 68 69 76 65 | 2d 66 69 6c 65 2d 6c 69 | archive|-file-li|
|00005c40| 73 74 2d 65 6e 64 20 33 | 32 20 64 65 6c 65 74 65 |st-end 3|2 delete|
|00005c50| 2d 63 68 61 72 20 31 20 | 73 65 74 2d 62 75 66 66 |-char 1 |set-buff|
|00005c60| 65 72 2d 6d 6f 64 69 66 | 69 65 64 2d 70 5d 20 32 |er-modif|ied-p] 2|
|00005c70| 20 28 23 24 20 2e 20 32 | 33 34 32 32 29 20 6e 69 | (#$ . 2|3422) ni|
|00005c80| 6c 5d 29 0a 23 40 31 35 | 38 20 49 6e 20 61 72 63 |l]).#@15|8 In arc|
|00005c90| 68 69 76 65 20 6d 6f 64 | 65 2c 20 6d 61 72 6b 20 |hive mod|e, mark |
|00005ca0| 74 68 69 73 20 6d 65 6d | 62 65 72 20 66 6f 72 20 |this mem|ber for |
|00005cb0| 67 72 6f 75 70 20 6f 70 | 65 72 61 74 69 6f 6e 73 |group op|erations|
|00005cc0| 2e 0a 57 69 74 68 20 61 | 20 70 72 65 66 69 78 20 |..With a| prefix |
|00005cd0| 61 72 67 75 6d 65 6e 74 | 2c 20 6d 61 72 6b 20 74 |argument|, mark t|
|00005ce0| 68 61 74 20 6d 61 6e 79 | 20 6d 65 6d 62 65 72 73 |hat many| members|
|00005cf0| 2e 0a 55 73 65 20 5c 5b | 61 72 63 68 69 76 65 2d |..Use \[|archive-|
|00005d00| 75 6e 6d 61 72 6b 2d 61 | 6c 6c 2d 66 69 6c 65 73 |unmark-a|ll-files|
|00005d10| 5d 20 74 6f 20 72 65 6d | 6f 76 65 20 61 6c 6c 20 |] to rem|ove all |
|00005d20| 6d 61 72 6b 73 2e 1f 0a | 28 64 65 66 61 6c 69 61 |marks...|(defalia|
|00005d30| 73 20 27 61 72 63 68 69 | 76 65 2d 6d 61 72 6b 20 |s 'archi|ve-mark |
|00005d40| 23 5b 28 70 29 20 22 c0 | 09 c2 5c 22 87 22 20 5b |#[(p) ".|..\"." [|
|00005d50| 61 72 63 68 69 76 65 2d | 66 6c 61 67 2d 64 65 6c |archive-|flag-del|
|00005d60| 65 74 65 64 20 70 20 34 | 32 5d 20 33 20 28 23 24 |eted p 4|2] 3 (#$|
|00005d70| 20 2e 20 32 33 36 39 30 | 29 20 22 70 22 5d 29 0a | . 23690|) "p"]).|
|00005d80| 28 64 65 66 61 6c 69 61 | 73 20 27 61 72 63 68 69 |(defalia|s 'archi|
|00005d90| 76 65 2d 67 65 74 2d 6d | 61 72 6b 65 64 20 23 5b |ve-get-m|arked #[|
|00005da0| 28 6d 61 72 6b 20 26 6f | 70 74 69 6f 6e 61 6c 20 |(mark &o|ptional |
|00005db0| 64 65 66 61 75 6c 74 29 | 20 22 c0 19 8a 5c 6e 62 |default)| "...\nb|
|00005dc0| 88 60 0b 57 83 1d 00 67 | 5c 66 55 83 17 00 c5 20 |.`.W...g|\fU.... |
|00005dd0| 09 42 11 c6 79 88 82 06 | 00 29 09 9f 86 2b 00 0e |.B..y...|.)...+..|
|00005de0| 07 85 2b 00 c5 20 43 29 | 87 22 20 5b 6e 69 6c 20 |..+.. C)|." [nil |
|00005df0| 66 69 6c 65 73 20 61 72 | 63 68 69 76 65 2d 66 69 |files ar|chive-fi|
|00005e00| 6c 65 2d 6c 69 73 74 2d | 73 74 61 72 74 20 61 72 |le-list-|start ar|
|00005e10| 63 68 69 76 65 2d 66 69 | 6c 65 2d 6c 69 73 74 2d |chive-fi|le-list-|
|00005e20| 65 6e 64 20 6d 61 72 6b | 20 61 72 63 68 69 76 65 |end mark| archive|
|00005e30| 2d 67 65 74 2d 64 65 73 | 63 72 20 31 20 64 65 66 |-get-des|cr 1 def|
|00005e40| 61 75 6c 74 5d 20 32 5d | 29 0a 28 64 65 66 61 6c |ault] 2]|).(defal|
|00005e50| 69 61 73 20 27 61 72 63 | 68 69 76 65 2d 6e 65 78 |ias 'arc|hive-nex|
|00005e60| 74 2d 6c 69 6e 65 20 23 | 5b 28 70 29 20 22 08 79 |t-line #|[(p) ".y|
|00005e70| 88 6d 86 09 00 09 75 87 | 22 20 5b 70 20 61 72 63 |.m....u.|" [p arc|
|00005e80| 68 69 76 65 2d 66 69 6c | 65 2d 6e 61 6d 65 2d 69 |hive-fil|e-name-i|
|00005e90| 6e 64 65 6e 74 5d 20 31 | 20 6e 69 6c 20 22 70 22 |ndent] 1| nil "p"|
|00005ea0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 61 72 |]).(defa|lias 'ar|
|00005eb0| 63 68 69 76 65 2d 70 72 | 65 76 69 6f 75 73 2d 6c |chive-pr|evious-l|
|00005ec0| 69 6e 65 20 23 5b 28 70 | 29 20 22 c0 09 5b 21 87 |ine #[(p|) "..[!.|
|00005ed0| 22 20 5b 61 72 63 68 69 | 76 65 2d 6e 65 78 74 2d |" [archi|ve-next-|
|00005ee0| 6c 69 6e 65 20 70 5d 20 | 32 20 6e 69 6c 20 22 70 |line p] |2 nil "p|
|00005ef0| 22 5d 29 0a 23 40 31 39 | 30 20 43 68 61 6e 67 65 |"]).#@19|0 Change|
|00005f00| 20 74 68 65 20 70 72 6f | 74 65 63 74 69 6f 6e 20 | the pro|tection |
|00005f10| 62 69 74 73 20 61 73 73 | 6f 63 69 61 74 65 64 20 |bits ass|ociated |
|00005f20| 77 69 74 68 20 61 6c 6c | 20 6d 61 72 6b 65 64 20 |with all| marked |
|00005f30| 6f 72 20 74 68 69 73 20 | 6d 65 6d 62 65 72 2e 0a |or this |member..|
|00005f40| 54 68 65 20 6e 65 77 20 | 70 72 6f 74 65 63 74 69 |The new |protecti|
|00005f50| 6f 6e 20 62 69 74 73 20 | 63 61 6e 20 65 69 74 68 |on bits |can eith|
|00005f60| 65 72 20 62 65 20 73 70 | 65 63 69 66 69 65 64 20 |er be sp|ecified |
|00005f70| 61 73 20 61 6e 20 6f 63 | 74 61 6c 20 6e 75 6d 62 |as an oc|tal numb|
|00005f80| 65 72 20 6f 72 0a 61 73 | 20 61 20 72 65 6c 61 74 |er or.as| a relat|
|00005f90| 69 76 65 20 63 68 61 6e | 67 65 20 6c 69 6b 65 20 |ive chan|ge like |
|00005fa0| 22 67 2b 72 77 22 20 61 | 73 20 66 6f 72 20 63 68 |"g+rw" a|s for ch|
|00005fb0| 6d 6f 64 28 32 29 1f 0a | 28 64 65 66 61 6c 69 61 |mod(2)..|(defalia|
|00005fc0| 73 20 27 61 72 63 68 69 | 76 65 2d 63 68 6d 6f 64 |s 'archi|ve-chmod|
|00005fd0| 2d 65 6e 74 72 79 20 23 | 5b 28 6e 65 77 2d 6d 6f |-entry #|[(new-mo|
|00005fe0| 64 65 29 20 22 08 83 08 | 00 c1 c2 21 88 c3 1c c5 |de) "...|...!....|
|00005ff0| c6 c7 0e 08 21 c9 5c 66 | 52 21 29 1e 5c 6e cb 0e |....!.\f|R!).\n..|
|00006000| 5c 6e 21 83 2d 00 0e 5c | 6e 0e 5c 66 cd ce cf 5c |\n!.-..\|n.\f...\|
|00006010| 22 5c 22 88 d0 20 82 30 | 00 c1 d1 21 29 87 22 20 |"\".. .0|...!)." |
|00006020| 5b 61 72 63 68 69 76 65 | 2d 72 65 61 64 2d 6f 6e |[archive|-read-on|
|00006030| 6c 79 20 65 72 72 6f 72 | 20 22 41 72 63 68 69 76 |ly error| "Archiv|
|00006040| 65 20 69 73 20 72 65 61 | 64 2d 6f 6e 6c 79 22 20 |e is rea|d-only" |
|00006050| 22 63 68 6d 6f 64 2d 65 | 6e 74 72 79 22 20 73 75 |"chmod-e|ntry" su|
|00006060| 66 66 69 78 20 69 6e 74 | 65 72 6e 20 22 61 72 63 |ffix int|ern "arc|
|00006070| 68 69 76 65 2d 22 20 73 | 79 6d 62 6f 6c 2d 6e 61 |hive-" s|ymbol-na|
|00006080| 6d 65 20 61 72 63 68 69 | 76 65 2d 73 75 62 74 79 |me archi|ve-subty|
|00006090| 70 65 20 22 2d 22 20 66 | 75 6e 63 20 66 62 6f 75 |pe "-" f|unc fbou|
|000060a0| 6e 64 70 20 6e 65 77 2d | 6d 6f 64 65 20 61 72 63 |ndp new-|mode arc|
|000060b0| 68 69 76 65 2d 67 65 74 | 2d 6d 61 72 6b 65 64 20 |hive-get|-marked |
|000060c0| 34 32 20 74 20 61 72 63 | 68 69 76 65 2d 72 65 73 |42 t arc|hive-res|
|000060d0| 75 6d 6d 61 72 69 7a 65 | 20 22 53 65 74 74 69 6e |ummarize| "Settin|
|000060e0| 67 20 6d 6f 64 65 20 62 | 69 74 73 20 69 73 20 6e |g mode b|its is n|
|000060f0| 6f 74 20 73 75 70 70 6f | 72 74 65 64 20 66 6f 72 |ot suppo|rted for|
|00006100| 20 74 68 69 73 20 61 72 | 63 68 69 76 65 20 74 79 | this ar|chive ty|
|00006110| 70 65 22 5d 20 35 20 28 | 23 24 20 2e 20 32 34 33 |pe"] 5 (|#$ . 243|
|00006120| 31 34 29 20 22 73 4e 65 | 77 20 6d 6f 64 65 20 28 |14) "sNe|w mode (|
|00006130| 6f 63 74 61 6c 20 6f 72 | 20 72 65 6c 61 74 69 76 |octal or| relativ|
|00006140| 65 29 3a 20 22 5d 29 0a | 23 40 34 38 20 43 68 61 |e): "]).|#@48 Cha|
|00006150| 6e 67 65 20 74 68 65 20 | 6f 77 6e 65 72 20 6f 66 |nge the |owner of|
|00006160| 20 61 6c 6c 20 6d 61 72 | 6b 65 64 20 6f 72 20 74 | all mar|ked or t|
|00006170| 68 69 73 20 6d 65 6d 62 | 65 72 2e 1f 0a 28 64 65 |his memb|er...(de|
|00006180| 66 61 6c 69 61 73 20 27 | 61 72 63 68 69 76 65 2d |falias '|archive-|
|00006190| 63 68 6f 77 6e 2d 65 6e | 74 72 79 20 23 5b 28 6e |chown-en|try #[(n|
|000061a0| 65 77 2d 75 69 64 29 20 | 22 08 83 08 00 c1 c2 21 |ew-uid) |"......!|
|000061b0| 88 c3 1c c5 c6 c7 0e 08 | 21 c9 5c 66 52 21 29 1e |........|!.\fR!).|
|000061c0| 5c 6e cb 0e 5c 6e 21 83 | 2d 00 0e 5c 6e 0e 5c 66 |\n..\n!.|-..\n.\f|
|000061d0| cd ce cf 5c 22 5c 22 88 | d0 20 82 30 00 c1 d1 21 |...\"\".|. .0...!|
|000061e0| 29 87 22 20 5b 61 72 63 | 68 69 76 65 2d 72 65 61 |)." [arc|hive-rea|
|000061f0| 64 2d 6f 6e 6c 79 20 65 | 72 72 6f 72 20 22 41 72 |d-only e|rror "Ar|
|00006200| 63 68 69 76 65 20 69 73 | 20 72 65 61 64 2d 6f 6e |chive is| read-on|
|00006210| 6c 79 22 20 22 63 68 6f | 77 6e 2d 65 6e 74 72 79 |ly" "cho|wn-entry|
|00006220| 22 20 73 75 66 66 69 78 | 20 69 6e 74 65 72 6e 20 |" suffix| intern |
|00006230| 22 61 72 63 68 69 76 65 | 2d 22 20 73 79 6d 62 6f |"archive|-" symbo|
|00006240| 6c 2d 6e 61 6d 65 20 61 | 72 63 68 69 76 65 2d 73 |l-name a|rchive-s|
|00006250| 75 62 74 79 70 65 20 22 | 2d 22 20 66 75 6e 63 20 |ubtype "|-" func |
|00006260| 66 62 6f 75 6e 64 70 20 | 6e 65 77 2d 75 69 64 20 |fboundp |new-uid |
|00006270| 61 72 63 68 69 76 65 2d | 67 65 74 2d 6d 61 72 6b |archive-|get-mark|
|00006280| 65 64 20 34 32 20 74 20 | 61 72 63 68 69 76 65 2d |ed 42 t |archive-|
|00006290| 72 65 73 75 6d 6d 61 72 | 69 7a 65 20 22 53 65 74 |resummar|ize "Set|
|000062a0| 74 69 6e 67 20 6f 77 6e | 65 72 20 69 73 20 6e 6f |ting own|er is no|
|000062b0| 74 20 73 75 70 70 6f 72 | 74 65 64 20 66 6f 72 20 |t suppor|ted for |
|000062c0| 74 68 69 73 20 61 72 63 | 68 69 76 65 20 74 79 70 |this arc|hive typ|
|000062d0| 65 22 5d 20 35 20 28 23 | 24 20 2e 20 32 34 39 30 |e"] 5 (#|$ . 2490|
|000062e0| 39 29 20 22 6e 4e 65 77 | 20 75 69 64 3a 20 22 5d |9) "nNew| uid: "]|
|000062f0| 29 0a 23 40 34 38 20 43 | 68 61 6e 67 65 20 74 68 |).#@48 C|hange th|
|00006300| 65 20 67 72 6f 75 70 20 | 6f 66 20 61 6c 6c 20 6d |e group |of all m|
|00006310| 61 72 6b 65 64 20 6f 72 | 20 74 68 69 73 20 6d 65 |arked or| this me|
|00006320| 6d 62 65 72 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |mber...(|defalias|
|00006330| 20 27 61 72 63 68 69 76 | 65 2d 63 68 67 72 70 2d | 'archiv|e-chgrp-|
|00006340| 65 6e 74 72 79 20 23 5b | 28 6e 65 77 2d 67 69 64 |entry #[|(new-gid|
|00006350| 29 20 22 08 83 08 00 c1 | c2 21 88 c3 1c c5 c6 c7 |) ".....|.!......|
|00006360| 0e 08 21 c9 5c 66 52 21 | 29 1e 5c 6e cb 0e 5c 6e |..!.\fR!|).\n..\n|
|00006370| 21 83 2d 00 0e 5c 6e 0e | 5c 66 cd ce cf 5c 22 5c |!.-..\n.|\f...\"\|
|00006380| 22 88 d0 20 82 30 00 c1 | d1 21 29 87 22 20 5b 61 |".. .0..|.!)." [a|
|00006390| 72 63 68 69 76 65 2d 72 | 65 61 64 2d 6f 6e 6c 79 |rchive-r|ead-only|
|000063a0| 20 65 72 72 6f 72 20 22 | 41 72 63 68 69 76 65 20 | error "|Archive |
|000063b0| 69 73 20 72 65 61 64 2d | 6f 6e 6c 79 22 20 22 63 |is read-|only" "c|
|000063c0| 68 67 72 70 2d 65 6e 74 | 72 79 22 20 73 75 66 66 |hgrp-ent|ry" suff|
|000063d0| 69 78 20 69 6e 74 65 72 | 6e 20 22 61 72 63 68 69 |ix inter|n "archi|
|000063e0| 76 65 2d 22 20 73 79 6d | 62 6f 6c 2d 6e 61 6d 65 |ve-" sym|bol-name|
|000063f0| 20 61 72 63 68 69 76 65 | 2d 73 75 62 74 79 70 65 | archive|-subtype|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
